Lines Matching +refs:ps +refs:get +refs:buffer +refs:name
96 (defmacro defgroup (name val doc &rest arr)
99 (defmacro defcustom (name val doc &rest arr)
100 (` (defvar (, name) (, val) (, doc)))))
110 ((fboundp 'valid-color-name-p) (` (valid-color-name-p (, col))))
112 ((fboundp 'x-valid-color-name-p) (` (x-valid-color-name-p (, col))))
145 ;; (switch-to-buffer (get-file-buffer (elt (, elt) 0)))
146 ;; (set-buffer (get-file-buffer (elt (, elt) 0)))
149 ;; (message "Did I get to line %s?" (elt (, elt) 1))
429 The function is available on \\[cperl-info-on-command], \\[cperl-get-help].
445 (defcustom cperl-pod-head-face 'font-lock-variable-name-face
497 "*Not-nil means install hook to know which regions of buffer are changed.
510 "*Non-nil means shrink-wrapping of info-buffer allowed up to these percents."
515 "*Non-nil means shrink-wrapping of info-buffer-frame allowed."
618 when syntaxifying a chunk of buffer."
629 (defcustom cperl-ps-print-face-properties
631 (font-lock-variable-name-face nil nil bold)
632 (font-lock-function-name-face nil nil bold italic box)
642 "List given as an argument to `ps-extend-face-list' in `cperl-ps-print'."
714 \(and you will not get smart highlighting in C :-().
729 If you use imenu-go, run imenu on perl5-info buffer (you can do it
735 current buffer only, the first one requires generation of TAGS from
780 up yet. You may get slightly different colors basing on the order of
782 but editing the buffer breaks this.
839 interactive sweep over the buffer);
845 5) and functions (by the full name - with package);
848 documentation buffer/frame;
961 `font-lock-function-name-face' _ as a target of a file tests, file tests,
972 `font-lock-variable-name-face' Variable declarations, indirect array and
996 `font-lock-function-name-face' Special symbols: $ ^ . [ ] [^ ] (?{ }) (??{ })
999 `font-lock-variable-name-face' Interpolated constructs, embedded code
1087 (let ((prop (get-text-property (point) 'syntax-type)))
1096 (or (get-text-property (point) 'syntax-type)
1115 (if (fboundp 'ps-extend-face-list)
1116 (defmacro cperl-ps-extend-face-list (arg)
1117 `(ps-extend-face-list ,arg))
1118 (defmacro cperl-ps-extend-face-list (arg)
1119 `(error "This version of Emacs has no `ps-extend-face-list'")))
1179 'cperl-get-help
1193 'cperl-get-help
1265 (get-buffer "*compilation*"))]
1266 ["Next error" next-error (get-buffer "*compilation*")]
1279 (get-text-property (point-min) 'in-pod)
1295 (get-text-property (point) 'syntax-type)))]
1301 (get-text-property (point) 'syntax-type))
1304 ["CPerl pretty print (exprmntl)" cperl-ps-print
1305 (fboundp 'ps-extend-face-list)]
1342 ["Help on symbol at point" cperl-get-help t]
1397 ;;; Is incorporated in `cperl-imenu--function-name-regexp-perl'
1405 of attributes (if present), or end of the name or prototype (whatever is
1408 "\\(" ; n+1=name-group
1409 cperl-white-and-comment-rex ; n+2=pre-name
1410 "\\(::[a-zA-Z_0-9:']+\\|[a-zA-Z_'][a-zA-Z_0-9:']*\\)" ; n+3=name
1411 "\\)" ; END n+1=name-group
1424 "\\(\\sw\\|_\\)+" ; attr-name
1438 ;;;; Was: 2=sub|package; now 2=package-group, 5=package-name 8=sub-name (+3)
1439 (defvar cperl-imenu--function-name-regexp-perl
1443 "\\(" ; 3 = package-name-group
1444 cperl-white-and-comment-rex ; 4 = pre-package-name
1445 "\\([a-zA-Z_0-9:']+\\)\\)?\\)" ; 5 = package-name
1448 (cperl-after-sub-regexp 'named nil) ; 8=name 11=proto 14=attr-start
1456 (concat cperl-imenu--function-name-regexp-perl "\\|" "\\`"))
1541 following \"if\" the following appears in the buffer: if () { or if ()
1601 help is available on \\[cperl-get-help], and one can run perldoc or
1699 (setq mode-name "CPerl")
1731 ;; (setq outline-regexp imenu-example--function-name-regexp-perl)
1759 ;;; (cperl-after-sub-regexp 'named nil) ; 8=name 11=proto 14=attr-start
1897 (concat "perl " ;;(file-name-nondirectory
1901 (buffer-file-name)))
1942 phony (eq (get-text-property (point) 'syntax-table)
2218 (not (eq (get-text-property (point)
2276 head1 notlast name p really-delete over)
2288 (get-text-property (point) 'in-pod)
2293 (eq (get-text-property (point) 'syntax-type) 'pod))))))
2310 (setq name (file-name-sans-extension
2311 (file-name-nondirectory (buffer-file-name)))
2313 (insert " NAME\n\n" name
2351 (not (eq (get-text-property (point)
2457 (setq cut (buffer-substring (point)
2471 ((get-text-property (point) 'in-pod) ; In POD section
2670 (defun cperl-get-state (&optional parse-start start-state)
2713 ;;; ((not (get-text-property (1- p) prop))
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)
2762 (s-s (cperl-get-state (car parse-data) (nth 1 parse-data)))
2778 (cond ((get-text-property (point) 'indentable)
2783 (get-text-property
2792 (progn ; get indent from the first line
2809 ((get-text-property char-after-pos 'REx-part2)
2838 (get-text-property (point) 'first-format-line)))
2888 ;; Now we get non-label preceeding the indent point
2895 (get-text-property (point) 'first-format-line)))
2964 (cond ((get-text-property (point) 'attrib-group)
3207 (s-s (cperl-get-state))
3272 ;; Now we get the answer.
3374 (if (setq pr (get-text-property (point) 'syntax-type))
3478 message). ARGUMENT should be the name of the construct (used in error
3636 (get-text-property (setq pos (point)) 'syntax-type)))
3658 (while (and end (get-text-property end 'syntax-type))
3668 (defvar font-lock-variable-name-face)
3669 (defvar font-lock-function-name-face)
3689 ;; No space between name and paren allowed...
3690 "\\(\\sw+\\)" ; 3=name
3712 (forward-comment (buffer-size))
3717 (and start1 end1 (buffer-substring start1 end1)) b)
3732 font-lock-function-name-face
3733 font-lock-variable-name-face)))))
3752 "Scans the buffer for hard-to-parse Perl constructions.
3764 (case-fold-search nil) (inhibit-read-only t) (buffer-undo-list t)
3765 (modified (buffer-modified-p)) overshoot is-o-REx
3786 (if (boundp 'font-lock-function-name-face)
3787 font-lock-function-name-face
3788 'font-lock-function-name-face))
3789 (font-lock-variable-name-face ; interpolated vars and ({})-code
3790 (if (boundp 'font-lock-variable-name-face)
3791 font-lock-variable-name-face
3792 'font-lock-variable-name-face))
3793 (font-lock-function-name-face ; used in `cperl-find-sub-attrs'
3794 (if (boundp 'font-lock-function-name-face)
3795 font-lock-function-name-face
3796 'font-lock-function-name-face))
3863 "\\(::[a-zA-Z_:'0-9]*\\|[a-zA-Z_'][a-zA-Z_:'0-9]*\\)\\)?" ; name
4084 (setq tag (buffer-substring b1 e1)
4144 name (if (match-beginning 8) ; 7 + 1
4145 (buffer-substring (match-beginning 8) ; 7 + 1
4185 (message "End of format `%s' not found." name)
4198 argument (buffer-substring
4472 "\\|" ; 6= 0-length, 7: name, 8,9:code, 10:group
4558 font-lock-variable-name-face)
4746 'face font-lock-variable-name-face)
4804 ;; "\\([a-zA-Z_:'0-9]+\\)\\)?" ; name ;14
4818 (forward-comment (buffer-size))
4863 (and (buffer-modified-p)
4865 (set-buffer-modified-p nil))
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)
4979 (if (get-text-property (point) 'in-pod)
5007 (eq (get-text-property (point) 'syntax-type)
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)
5445 comment-fill-prefix (buffer-substring (match-beginning 0)
5457 (buffer-substring (match-beginning 0) (match-end 0)))
5459 (buffer-substring (point) start))
5538 (defun cperl-imenu-addback (lst &optional isback name)
5544 (or name
5545 (setq name "+++BACK+++"))
5551 (setcdr elt (cons (cons name lst)
5553 (cperl-imenu-addback (cdr elt) t name))))
5563 (prev-pos 0) is-pack index index1 name (end-range 0) package)
5569 (or regexp cperl-imenu--function-name-regexp-perl)
5571 ;; 2=package-group, 5=package-name 8=sub-name
5574 (match-beginning 5) ; package name
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)))
5599 (setq name (buffer-substring (match-beginning 5)
5601 name (progn
5602 (set-text-properties 0 (length name) nil name)
5603 name)
5604 package (concat name "::")
5605 name (concat "package " name))
5607 (setq name "package;" package ""))
5615 (eq 0 (get-text-property (point) 'attrib-group)))))
5616 ;; Skip this function name if it is a prototype declaration.
5619 (setq name
5620 (buffer-substring (match-beginning 8) (match-end 8)))
5621 (set-text-properties 0 (length name) nil name))
5625 ((string-match "[:']" name)
5629 (setq name (concat package name) meth t)))
5630 (setq index (cons name marker))
5637 (setq name (buffer-substring (match-beginning 17) (match-end 17))
5640 (set-text-properties 0 (length name) nil name)
5641 (setq name (concat (make-string
5644 name)
5645 index (cons name marker))
5646 (setq index1 (cons (concat "=" name) (cdr index)))
5658 (let ((lst index-pack-alist) hier-list pack elt group name)
5661 (setq elt (car lst) lst (cdr lst) name (substring (car elt) 8))
5662 (if (assoc name hier-list) nil
5663 (setq hier-list (cons (cons name (cdr elt)) hier-list))))
5710 ;;;; 2=package-group, 5=package-name 8=sub-name 16=head-level
5728 (cond ((featurep 'ps-print)
5742 "ps-print"
5848 "\\(uid\\|ent\\|nam\\)\\|grp\\)\\|host\\(by\\(addr\\|name\\)\\|"
5849 "ent\\)\\|s\\(erv\\(by\\(port\\|name\\)\\|ent\\)\\|"
5850 "ock\\(name\\|opt\\)\\)\\|c\\|login\\|net\\(by\\(addr\\|name\\)\\|"
5855 "ctl\\|get\\)\\|kdir\\)\\|n\\(e\\|ot\\)\\|o\\(pen\\(\\|dir\\)\\|"
5858 "\\(k\\|e\\)\\|dir\\)\\|set\\|cv\\|verse\\|f\\|winddir\\|name"
5862 "m\\(ctl\\|op\\|get\\)\\|nd\\)\\|h\\(utdown\\|m\\(read\\|ctl\\|"
5863 "write\\|get\\)\\)\\|y\\(s\\(read\\|call\\|open\\|tem\\|write\\)\\|"
5901 font-lock-function-name-face keep) ; Not very good, triggers at "[a-z]"
5907 "\\([^ \n\t{;()]+\\)" ; 2=name (assume non-anonymous)
5915 'font-lock-function-name-face
5916 'font-lock-variable-name-face)
5925 'font-lock-function-name-face
5926 'font-lock-variable-name-face))))
5928 2 font-lock-function-name-face)
5930 1 font-lock-function-name-face)
5949 ;; Uncomment to get perl-mode-like vars
5950 ;;; '("[$*]{?\\(\\sw+\\)" 1 font-lock-variable-name-face)
5952 ;;; (2 (cons font-lock-variable-name-face '(underline))))
5955 (3 font-lock-variable-name-face)
5958 (1 font-lock-variable-name-face)
5969 'font-lock-variable-name-face
5972 'font-lock-variable-name-face))))
6010 (3 font-lock-variable-name-face)))))
6012 3 font-lock-variable-name-face)))
6014 4 font-lock-variable-name-face)
6039 font-lock-variable-name-face) ; Just to put something
6043 (2 font-lock-variable-name-face))
6046 (2 font-lock-variable-name-face))
6050 ;;(3 font-lock-function-name-face t t)
6053 ;; font-lock-function-name-face 'default) nil t))
6059 font-lock-variable-name-face)))))
6069 (if (fboundp 'ps-print-buffer) (cperl-ps-print-init))
6087 (list 'font-lock-function-name-face
6099 (list 'font-lock-variable-name-face
6153 ;; ((fboundp 'valid-color-name-p) 'valid-color-name-p)
6155 ;; (t 'x-valid-color-name-p))))
6158 (cperl-force-face font-lock-variable-name-face
6168 (cperl-force-face font-lock-function-name-face
6175 ;;(defvar font-lock-variable-name-face 'font-lock-variable-name-face)
6193 ;; (or (boundp 'font-lock-function-name-face)
6194 ;; (defconst font-lock-function-name-face
6195 ;; 'font-lock-function-name-face
6302 (if (cperl-is-face 'font-lock-variable-name-face) nil
6303 (copy-face 'italic 'font-lock-variable-name-face))
6310 (defun cperl-ps-print-init ()
6311 "Initialization of `ps-print' components for faces used in CPerl."
6312 (eval-after-load "ps-print"
6313 '(setq ps-bold-faces
6314 ;; font-lock-variable-name-face
6317 ps-bold-faces)
6318 ps-italic-faces
6321 ps-italic-faces)
6322 ps-underlined-faces
6325 ps-underlined-faces))))
6327 (defvar ps-print-face-extension-alist)
6329 (defun cperl-ps-print (&optional file)
6332 to the file FILE. If FILE is nil, prompts for a file name.
6334 Style of printout regulated by the variable `cperl-ps-print-face-properties'."
6339 (concat (buffer-file-name) ".ps")
6340 nil nil 'file-name-history)))
6343 (require 'ps-print) ; To get ps-print-face-extension-alist
6344 (let ((ps-print-color-p t)
6345 (ps-print-face-extension-alist ps-print-face-extension-alist))
6346 (cperl-ps-extend-face-list cperl-ps-print-face-properties)
6347 (ps-print-buffer-with-faces file)))
6349 ;;; (defun cperl-ps-print-init ()
6350 ;;; "Initialization of `ps-print' components for faces used in CPerl."
6352 ;;; (defvar ps-underlined-faces nil)
6353 ;;; (defvar ps-bold-faces nil)
6354 ;;; (defvar ps-italic-faces nil)
6355 ;;; (setq ps-bold-faces
6359 ;;; font-lock-variable-name-face
6364 ;;; ps-bold-faces))
6365 ;;; (setq ps-italic-faces
6371 ;;; ps-italic-faces))
6372 ;;; (setq ps-underlined-faces
6378 ;;; ps-underlined-faces))
6379 ;;; (cons 'font-lock-type-face ps-underlined-faces))
6576 "List of variables to set to get a particular indentation style.
6599 (lambda (name)
6600 (cons name (eval name))))
6623 (defun cperl-info-buffer (type)
6624 ;; Returns buffer with documentation. Creates if missing.
6625 ;; If TYPE, this vars buffer.
6626 ;; Special care is taken to not stomp over an existing info buffer
6628 (info (get-buffer bname))
6629 (oldbuf (get-buffer "*info*")))
6635 (set-buffer oldbuf)
6636 (rename-buffer "*info-perl-tmp*")))
6640 (set-buffer "*info*")
6641 (rename-buffer bname)
6643 (set-buffer "*info-perl-tmp*")
6644 (rename-buffer "*info*")
6645 (set-buffer bname)))
6648 (current-buffer)))))
6659 (get major-mode 'find-tag-default-function)
6666 If perl-info buffer is shown in some frame, uses this frame.
6678 (let ((buffer (current-buffer))
6685 buf (cperl-info-buffer isvar)
6688 (set-buffer buf)
6703 (setq win (get-buffer-window (car buf-list) t))
6706 (eq (window-buffer win) buf)
6707 (set-window-buffer win buf))
6710 (pop-to-buffer buf)
6743 ;;(pop-to-buffer buffer)
6757 (defun cperl-imenu-info-imenu-name ()
6758 (buffer-substring
6763 Opens Perl Info buffer if needed."
6765 (let* ((buffer (current-buffer))
6768 imenu-extract-index-name-function
6771 (set-buffer (cperl-info-buffer nil))
6776 imenu-extract-index-name-function
6777 'cperl-imenu-info-imenu-name)
6778 (imenu-choose-buffer-index)))))
6782 (pop-to-buffer "*info-perl*")
6789 (pop-to-buffer buffer)))))
6819 (buffer-substring (match-beginning 0)
6854 ;; 1=fullname 2=package? 3=name 4=proto? 5=attrs? (VERY APPROX!)
6862 (or files (setq files (list buffer-file-name)))
6867 "sub wanted {push @ARGV, $File::Find::name if /\\.[pP][Llm]$/}
6940 Numbers are character positions in the buffer. REQ provides the range to
6956 (defvar cperl-tmp-buffer " *cperl-tmp*")
6959 (set-buffer (get-buffer-create cperl-tmp-buffer))
6961 (buffer-disable-undo)
6972 (prev-pos 0) index index1 name package prefix)
6981 (setq package (buffer-substring (match-beginning 2) (match-end 2)))
6986 (setq prefix (buffer-substring (match-beginning 1) (match-end 1)))
6991 (setq index (imenu-example--name-and-position))
6992 (setq name (buffer-substring (match-beginning 3) (match-end 3)))
6993 (if (and prefix (string-match (concat "^" prefix) name))
6994 (setq name (substring name (length prefix))))
6995 (cond ((string-match "::" name) nil)
6997 (setq index1 (cons (concat package "::" name) (cdr index)))
6999 (setcar index name)
7003 (setq index (imenu-example--name-and-position))
7011 (let ((b (get-buffer cperl-tmp-buffer)) ind lst elt pos ret rel
7014 (if b (set-buffer b)
7016 (erase-buffer)
7046 (buffer-substring (progn
7048 ;; After name now...
7055 (erase-buffer)
7073 ;; Need to insert the name without package as well
7087 (setq ret (buffer-substring 1 (point-max)))
7088 (erase-buffer)
7119 ;; If INBUFFER, do not select buffer, and do not save
7123 (setq file (if dir default-directory (buffer-file-name)))
7124 (if (and (not dir) (buffer-modified-p)) (error "Save buffer first!")))
7127 (let ((tags-file-name "TAGS")
7132 ((file-exists-p tags-file-name)
7134 (visit-tags-table-buffer)
7135 (visit-tags-table-buffer tags-file-name)))
7136 (t (set-buffer (find-file-noselect tags-file-name))))
7141 (erase-buffer)
7171 (erase (erase-buffer))
7192 (save-buffer 0) ; No backup
7214 (let (type pack name pos line chunk ord cons1 file str info fileind)
7228 (setq ;;str (buffer-substring (match-beginning 1) (match-end 1))
7229 name (buffer-substring (match-beginning 2) (match-end 2))
7230 ;;pos (buffer-substring (match-beginning 3) (match-end 3))
7231 line (buffer-substring (match-beginning 3) (match-end 3))
7239 ;; Make new member of hierarchy name ==> file ==> pos if needed
7240 (if (setq cons1 (assoc name (nth ord cperl-hierarchy)))
7244 ;; First occurrence of the name, start alist
7245 (setq cons1 (cons name (list (cons fileind (vector file info)))))
7262 (let ((remover (function (lambda (elt) ; (name (file1...) (file2..))
7266 pack name cons1 to l1 l2 l3 l4 b)
7271 (or tags-file-name
7275 (set-buffer (get-file-buffer tags-file-name))
7283 (set-buffer (get-file-buffer tagsfile))
7300 ;;; (imenu-choose-buffer-index "Packages: " (nth 2 cperl-hierarchy))
7327 root-packages root-functions ms many_ms same_name ps
7394 (defun cperl-list-fold (list name limit)
7404 (setq list1 (cons (cons name
7409 (nreverse (cons (cons name
7413 (defun cperl-menu-to-keymap (menu &optional name)
7470 "Find places in the buffer where insertion of a whitespace may help.
7482 (let ((buffer-quit-function
7489 (let ((buffer-quit-function
7546 "Matches places in the buffer we can find help for.")
7600 (buffer-substring (match-beginning 0) (match-end 0))))
7602 (defun cperl-get-help ()
7613 (or (memq (get-text-property (point) 'face)
7615 (memq (get-text-property (point) 'syntax-type)
7621 (buffer-substring (point) (min (+ 5 (point)) (point-max))))))))))
7625 (defvar cperl-doc-buffer " *perl-doc*"
7654 ;; get the buffer with the documentation text
7655 (cperl-switch-to-doc-buffer)
7666 (message "%s" (buffer-substring lnstart (point)))))
7714 $ARGV The name of the current file used with <> .
7718 $^ The name of the current top-of-page format.
7726 $^M A buffer for emergency memory allocation when running out of memory.
7727 $^O The operating system name under which this copy of Perl was built.
7731 $^X The name under which perl was invoked (argv[0] in C-speech).
7734 $~ The name of the current report format.
7804 @ARGV Command line arguments (not including the command name - see $0).
8093 (defun cperl-switch-to-doc-buffer (&optional interactive)
8094 "Go to the perl documentation buffer and insert the documentation."
8096 (let ((buf (get-buffer-create cperl-doc-buffer)))
8098 (switch-to-buffer-other-window buf)
8099 (set-buffer buf))
8100 (if (= (buffer-size) 0)
8104 (setq buffer-read-only t)))))
8283 (buffer-substring (point) (1+ (point)))))
8433 (setq if-string (buffer-substring (match-beginning 0) (match-end 0)))
8442 (setq B (buffer-substring pre-B post-B))
8451 (setq A (buffer-substring pre-A post-A))
8489 (if-string (buffer-substring (match-beginning 0) (match-end 0))))
8530 A (buffer-substring p (match-end 0))
8540 (setq B (buffer-substring (point) end-B-code))
8546 (buffer-substring (point) (1- post-B)))))
8556 (setq A (buffer-substring (point) p))
8636 "*File name for `pod2man'."
8645 (let* ((pod2man-args (concat buffer-file-name " | nroff -man "))
8646 (bufname (concat "Man " buffer-file-name))
8647 (buffer (generate-new-buffer bufname)))
8649 (set-buffer buffer)
8654 (start-process pod2man-program buffer "sh" "-c"
8666 (manual-entry buffer-file-name)))
8669 (Man-getpage-in-background buffer-file-name)))))
8705 point and the limit of search (default to point and end of buffer).
8717 (and (eq (get-text-property beg 'syntax-type) 'string)
8721 (if (memq (get-text-property s 'REx-interpolated) skip)
8731 "Spell-check HERE-documents in the Perl buffer.
8772 (setq has-prop (get-text-property pos prop))
8779 (defun cperl-get-here-doc-region (&optional pos pod)
8785 (if (or (eq 'here-doc (get-text-property pos 'syntax-type))
8787 (eq 'pod (get-text-property pos 'syntax-type))))
8797 (let ((p (cperl-get-here-doc-region pos)))
8807 (let ((p (cperl-get-here-doc-region pos t)))
8820 (or (get-text-property (point) 'in-pod)
8836 *Messages* buffer.
8838 May be used for pinpointing which construct slows down buffer fontification:
8863 Start fontifying the buffer from the start (or end) using the given
8912 'cperl-get-help-defer)
8920 (cancel-function-timers 'cperl-get-help-defer)
8926 (defun cperl-get-help-defer ()
8929 (cperl-get-help)
8937 (let* ((modified (buffer-modified-p)) (buffer-undo-list t)
8940 deactivate-mark buffer-file-name buffer-file-truename)
8942 (if (and (not modified) (buffer-modified-p))
8943 (set-buffer-modified-p nil))))
8955 (eq (get-text-property (setq beg (point)) 'syntax-type)
8966 (eq (get-text-property (setq end (point)) 'syntax-type)
8979 start from-start edebug-backtrace-buffer)
9012 (setq prop (get-text-property pos 'cperl-postpone)
9020 ;; do to the end of buffer, not to END;;; likewise, start earlier if needed
9021 (let* ((pos (point)) (prop (get-text-property pos 'cperl-postpone)) posend)
9030 (setq prop (get-text-property pos 'cperl-postpone))))
9033 ;; Called when any modification is made to buffer text.