Lines Matching +defs:put +defs:text +defs:property
238 (put 'cperl-indent-level 'safe-local-variable 'integerp)
248 An open brace following other text is treated as if it were this far
254 "*Extra indentation for braces, compared with other text in same context."
385 "*Column to put comments in CPerl (use \\[cperl-indent] to lineup with code)."
525 (defcustom cperl-use-syntax-table-text-property
527 "*Non-nil means CPerl sets up and uses `syntax-table' text property."
531 (defcustom cperl-use-syntax-table-text-property-for-tags
532 cperl-use-syntax-table-text-property
533 "*Non-nil means: set up and use `syntax-table' text property generating TAGS."
589 "*Non-nil means that BLOCK-end `}' may be put on a separate line
720 want it to: put the following into your .emacs file:
805 that Emacs 20.2 has some bugs related to `syntax-table' text
811 via `cperl-use-syntax-table-text-property'.")
816 0) It uses the newest `syntax-table' property ;-);
820 with old Emaxen which do not support `syntax-table' property.
822 When using `syntax-table' property for syntax assist hints, it should
887 not needed anymore with the support for `syntax-table' property. Has
932 `cperl-use-syntax-table-text-property'
942 `cperl-use-syntax-table-text-property'
1054 "Text property which inhibits refontification.")
1056 (defsubst cperl-put-do-not-fontify (from to &optional post)
1060 (put-text-property (max (point-min) (1- from))
1087 (let ((prop (get-text-property (point) 'syntax-type)))
1096 (or (get-text-property (point) 'syntax-type)
1098 (put-text-property (point) (match-end 0)
1235 cperl-use-syntax-table-text-property]
1237 cperl-use-syntax-table-text-property]
1239 cperl-use-syntax-table-text-property]
1241 cperl-use-syntax-table-text-property]
1243 cperl-use-syntax-table-text-property]
1245 cperl-use-syntax-table-text-property]
1248 (next-single-property-change (point-min) 'REx-interpolated)]
1251 (or (text-property-any (point-min) (point-max) 'REx-interpolated t)
1252 (text-property-any (point-min) (point-max) 'REx-interpolated 1))]
1255 (text-property-any (point-min) (point-max) 'REx-interpolated t)])
1279 (get-text-property (point-min) 'in-pod)
1283 (next-single-property-change (point-min) 'in-pod nil (point-max)))
1289 (next-single-property-change (point-min) 'here-doc-group nil (point-max)))
1295 (get-text-property (point) 'syntax-type)))]
1301 (get-text-property (point) 'syntax-type))
1403 "Match the text after `sub' in a subroutine declaration.
1452 "\\([^\n]+\\)$" ; 17=text
1610 Use \\[cperl-lineup] to vertically lineup some construction - put the
1647 An open brace following other text is treated as if it the line started
1823 (if cperl-use-syntax-table-text-property
1843 ;; used to ignore syntax-table text-properties. (t) is a hack
1942 phony (eq (get-text-property (point) 'syntax-table)
2217 (and cperl-use-syntax-table-text-property
2218 (not (eq (get-text-property (point)
2288 (get-text-property (point) 'in-pod)
2292 (or (not cperl-use-syntax-table-text-property)
2293 (eq (get-text-property (point) 'syntax-type) 'pod))))))
2350 (and cperl-use-syntax-table-text-property
2351 (not (eq (get-text-property (point)
2471 ((get-text-property (point) 'in-pod) ; In POD section
2569 (put 'cperl-electric-backspace 'delete-selection 'supersede)
2656 ;; position after the indentation. Else stay at same point in text.
2703 (defun cperl-beginning-of-property (p prop &optional lim)
2704 "Given that P has a property PROP, find where the property starts.
2707 (or (previous-single-property-change (cperl-1+ p) prop lim)
2713 ;;; ((not (get-text-property (1- p) prop))
2715 ;;; (t (or (previous-single-property-change p look-prop lim)
2726 (let ((res (get-text-property (point) 'syntax-type)))
2730 (not (get-text-property (point) 'indentable)))
2738 ((get-text-property (point) 'in-pod)
2752 prop (get-text-property p 'syntax-type)
2757 (goto-char (cperl-beginning-of-property p look-prop))
2778 (cond ((get-text-property (point) 'indentable)
2783 (get-text-property
2785 p (1+ (cperl-beginning-of-property
2809 ((get-text-property char-after-pos 'REx-part2)
2838 (get-text-property (point) 'first-format-line)))
2895 (get-text-property (point) 'first-format-line)))
2925 (or (next-single-property-change (point) 'in-pod)
2964 (cond ((get-text-property (point) 'attrib-group)
2965 (goto-char (cperl-beginning-of-property
2994 '((pod nil) ; via `syntax-type' property
2995 (here-doc nil) ; via `syntax-type' property
2996 (here-doc-delim nil) ; via `syntax-type' property
2997 (format nil) ; via `syntax-type' property
2998 (in-pod nil) ; via `in-pod' property
3374 (if (setq pr (get-text-property (point) 'syntax-type))
3375 (setq e (next-single-property-change (point) 'syntax-type nil (point-max))))
3417 (put-text-property at (1+ at) 'syntax-table how)
3418 (put-text-property at (1+ at) 'rear-nonsticky '(syntax-table)))))
3425 (put-text-property (1- (point)) (point) 'syntax-table cperl-st-punct))))
3428 (if cperl-use-syntax-table-text-property
3439 (put-text-property (1+ bb) (1- e)
3445 (put-text-property bb e 'face (if string 'font-lock-string-face
3483 modify syntax-type text property if the situation is too hard."
3604 (or now (put-text-property b e 'cperl-postpone (cons type val)))
3605 (put-text-property b e type val)))
3636 (get-text-property (setq pos (point)) 'syntax-type)))
3638 pos (cperl-beginning-of-property pos 'syntax-type))
3658 (while (and end (get-text-property end 'syntax-type))
3660 end (next-single-property-change end 'syntax-type nil (point-max)))
3721 (put-text-property start (point)
3726 (put-text-property (+ 3 pos) (cperl-1+ (point))
3850 (if cperl-use-syntax-table-text-property
3892 (remove-text-properties min max
3972 (remove-text-properties
3985 (put-text-property b e 'in-pod t)
3986 (put-text-property b e 'syntax-type 'in-pod)
3991 (put-text-property (cperl-1- b) (point) 'syntax-type 'pod)
3992 (cperl-put-do-not-fontify b (point) t)
3999 (put-text-property (cperl-1- (point)) e 'syntax-type 'pod)
4000 (cperl-put-do-not-fontify (point) e t)
4090 (cperl-put-do-not-fontify b1 e1 t)))
4113 (cperl-put-do-not-fontify b (match-end 0) t)
4118 (put-text-property b (match-beginning 0)
4120 (put-text-property (match-beginning 0) e1
4122 (put-text-property b e1 'here-doc-group t)
4125 (put-text-property b (cperl-1+ b) 'front-sticky '(syntax-type))
4127 (cperl-put-do-not-fontify b (match-end 0) t)
4150 (put-text-property (save-excursion
4173 (cperl-put-do-not-fontify b1 (point) t))))
4184 (cperl-put-do-not-fontify (point) (+ (point) 2) t))
4190 (put-text-property b (point) 'syntax-type 'format))
4264 cperl-use-syntax-table-text-property
4327 (put-text-property b (point) 'syntax-type 'prestring))
4368 (put-text-property b (point) 'syntax-type 'string)
4370 ;; ignore other text properties:
4372 (put-text-property b (point) 'indentable t))
4391 (put-text-property b i 'syntax-type 'string)
4392 (put-text-property i (point) 'syntax-type 'multiline)
4394 (put-text-property b i 'indentable t)))
4396 (put-text-property b (point) 'syntax-type 'string)
4398 (put-text-property b i 'indentable t))
4550 (put-text-property
4591 (if (and cperl-use-syntax-table-text-property
4593 (put-text-property
4651 ;; Apparently, I can't put \] into a charclass
4695 (if (and cperl-use-syntax-table-text-property
4697 (put-text-property
4725 (if cperl-use-syntax-table-text-property
4726 (put-text-property
4753 (if cperl-use-syntax-table-text-property
4755 (put-text-property
4758 (put-text-property
4786 (put-text-property (1+ b) (1- e)
4796 (put-text-property b1 (1+ b1)
4829 (put-text-property (1- bb) bb 'syntax-table cperl-st-word)
4835 ;; (put-text-property b (1+ bb) 'syntax-type 'pod) ; Cheat
4885 (if (memq (setq pr (get-text-property (point) 'syntax-type))
4904 (get-text-property (cperl-1- (point)) 'attrib-group)
4941 (get-text-property (cperl-1- (point)) 'attrib-group)
4972 ;;(memq (setq pr (get-text-property (point) 'syntax-type))
4974 (if (get-text-property (point) 'here-doc-group)
4977 (cperl-beginning-of-property (point) 'here-doc-group))
4979 (if (get-text-property (point) 'in-pod)
4982 (cperl-beginning-of-property (point) 'in-pod))
5007 (eq (get-text-property (point) 'syntax-type)
5029 ;; may be stuck after @ or $; just put some stupid workaround now:
5384 (not (eq (get-text-property (point) 'syntax-type) 'pod))
5385 (not (eq (get-text-property (point) 'syntax-table)
5398 (not (memq (get-text-property (point)
5401 (not (eq (get-text-property (point)
5577 (looking-at "[ \t\n]*;")))) ; Plain text word 'package'
5583 (null (get-text-property (match-beginning 1) 'syntax-table))
5584 (null (get-text-property (match-beginning 1) 'syntax-type))
5585 (null (get-text-property (match-beginning 1) 'in-pod)))
5602 (set-text-properties 0 (length name) nil name)
5615 (eq 0 (get-text-property (point) 'attrib-group)))))
5621 (set-text-properties 0 (length name) nil name))
5640 (set-text-properties 0 (length name) nil name)
5921 (put-text-property
5980 ;; facification" property. Thus we need to minimize.
6006 (put-text-property
6039 font-lock-variable-name-face) ; Just to put something
6909 "Toggle the state of Auto-Help on Perl constructs (put in the message area).
6963 (if cperl-use-syntax-table-text-property-for-tags
7027 (if (and cperl-use-syntax-table-text-property-for-tags
7083 (set-text-properties 0 (length rel) nil rel)
7176 (set-text-properties 0 (length rel) nil rel)
7458 "[CBIXSLFZ]<\\(\\sw\\|\\s \\|\\s_\\|[\n]\\)*>" ; C<code like text>
7613 (or (memq (get-text-property (point) 'face)
7615 (memq (get-text-property (point) 'syntax-type)
7654 ;; get the buffer with the documentation text
7756 -B File is a non-text (binary) file.
7762 -T File is a text file.
8102 (insert (documentation-property 'cperl-short-docs
8178 cperl-use-syntax-table-text-property)
8296 (or cperl-use-syntax-table-text-property
8617 (documentation-property
8717 (and (eq (get-text-property beg 'syntax-type) 'string)
8718 (setq beg (next-single-property-change beg 'syntax-type nil limit)))
8721 (if (memq (get-text-property s 'REx-interpolated) skip)
8762 PROP is the text-property to search for; default to `in-pod'. Stop when
8772 (setq has-prop (get-text-property pos prop))
8773 (setq posend (next-single-property-change pos prop nil end))
8785 (if (or (eq 'here-doc (get-text-property pos 'syntax-type))
8787 (eq 'pod (get-text-property pos 'syntax-type))))
8788 (let ((b (cperl-beginning-of-property pos 'syntax-type))
8789 (e (next-single-property-change pos 'syntax-type)))
8820 (or (get-text-property (point) 'in-pod)
8901 "Switches on Auto-Help on Perl constructs (put in the message area).
8916 "Switches off Auto-Help on Perl constructs (put in the message area).
8941 (remove-text-properties beg end '(face nil))
8955 (eq (get-text-property (setq beg (point)) 'syntax-type)
8957 (if (setq beg (cperl-beginning-of-property beg 'syntax-type))
8966 (eq (get-text-property (setq end (point)) 'syntax-type)
8968 (setq end (next-single-property-change end 'syntax-type nil (point-max)))
9012 (setq prop (get-text-property pos 'cperl-postpone)
9013 posend (next-single-property-change pos 'cperl-postpone nil end))
9014 (and prop (put-text-property pos posend (car prop) (cdr prop)))
9021 (let* ((pos (point)) (prop (get-text-property pos 'cperl-postpone)) posend)
9023 (setq pos (or (cperl-beginning-of-property
9027 (setq posend (next-single-property-change pos 'cperl-postpone))
9028 (and prop (put-text-property pos posend (car prop) (cdr prop)))
9030 (setq prop (get-text-property pos 'cperl-postpone))))
9033 ;; Called when any modification is made to buffer text.
9041 (if (and cperl-use-syntax-table-text-property