Lines Matching +defs:buffer +defs:menu
40 ;; DO NOT FORGET to read micro-docs (available from `Perl' menu) <<<<<<
90 (defvar msb-menu-cond)
145 ;; (switch-to-buffer (get-file-buffer (elt (, elt) 0)))
146 ;; (set-buffer (get-file-buffer (elt (, elt) 0)))
486 You can always make lookup from menu or using \\[cperl-find-pods-heres]."
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."
622 (defcustom cperl-syntaxify-for-menu
624 "*Non-nil means that CPerl syntaxifies up to the point before showing menu.
625 This way enabling/disabling of menu items is more correct."
716 Note that to enable Compile choices in the menu you need to install
729 If you use imenu-go, run imenu on perl5-info buffer (you can do it
730 from Perl menu). If many files are related, generate TAGS files from
731 Tools/Tags submenu in Perl menu.
734 from Perl menu, or hierarchic view of imenu. The second one uses the
735 current buffer only, the first one requires generation of TAGS from
736 Perl/Tools/Tags menu beforehand.
782 but editing the buffer breaks this.
839 interactive sweep over the buffer);
848 documentation buffer/frame;
856 the standard menu has 6 different way to generate
1216 (defvar cperl-menu)
1222 (easy-menu-define
1223 cperl-menu cperl-mode-map "Menu for CPerl mode"
1265 (get-buffer "*compilation*"))]
1266 ["Next error" next-error (get-buffer "*compilation*")]
1281 (and cperl-syntaxify-for-menu
1287 (and cperl-syntaxify-for-menu
1293 (and cperl-syntaxify-for-menu
1299 (and cperl-syntaxify-for-menu
1541 following \"if\" the following appears in the buffer: if () { or if ()
1602 man via menu.
1608 menu, or via \\[cperl-toggle-autohelp]. Requires `run-with-idle-timer'.
1664 \(both available from menu). See examples in `cperl-style-examples'.
1680 DO NOT FORGET to read micro-docs (available from `Perl' menu)
1875 (and (boundp 'msb-menu-cond)
1879 (easy-menu-add cperl-menu)) ; A NOP in Emacs.
1901 (buffer-file-name)))
1907 ;; Adds perl files to msb menu, supposes that msb is already loaded
1909 (let* ((l (length msb-menu-cond))
1910 (last (nth (1- l) msb-menu-cond))
1911 (precdr (nthcdr (- l 2) msb-menu-cond)) ; cdr of this is last
2311 (file-name-nondirectory (buffer-file-name)))
2457 (setq cut (buffer-substring (point)
3712 (forward-comment (buffer-size))
3717 (and start1 end1 (buffer-substring start1 end1)) b)
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
4084 (setq tag (buffer-substring b1 e1)
4145 (buffer-substring (match-beginning 8) ; 7 + 1
4198 argument (buffer-substring
4818 (forward-comment (buffer-size))
4863 (and (buffer-modified-p)
4865 (set-buffer-modified-p nil))
5445 comment-fill-prefix (buffer-substring (match-beginning 0)
5457 (buffer-substring (match-beginning 0) (match-end 0)))
5459 (buffer-substring (point) start))
5599 (setq name (buffer-substring (match-beginning 5)
5620 (buffer-substring (match-beginning 8) (match-end 8)))
5637 (setq name (buffer-substring (match-beginning 17) (match-end 17))
6069 (if (fboundp 'ps-print-buffer) (cperl-ps-print-init))
6339 (concat (buffer-file-name) ".ps")
6347 (ps-print-buffer-with-faces file)))
6577 Should be used via `cperl-set-style' or via Perl menu.
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)))))
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)
6758 (buffer-substring
6763 Opens Perl Info buffer if needed."
6765 (let* ((buffer (current-buffer))
6771 (set-buffer (cperl-info-buffer nil))
6778 (imenu-choose-buffer-index)))))
6782 (pop-to-buffer "*info-perl*")
6789 (pop-to-buffer buffer)))))
6819 (buffer-substring (match-beginning 0)
6862 (or files (setq files (list buffer-file-name)))
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)
6981 (setq package (buffer-substring (match-beginning 2) (match-end 2)))
6986 (setq prefix (buffer-substring (match-beginning 1) (match-end 1)))
6992 (setq name (buffer-substring (match-beginning 3) (match-end 3)))
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
7055 (erase-buffer)
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!")))
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
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))
7254 "Show hierarchical menu of classes and methods.
7257 One may build such TAGS files from CPerl mode menu."
7275 (set-buffer (get-file-buffer tags-file-name))
7283 (set-buffer (get-file-buffer tagsfile))
7293 (cperl-menu-to-keymap (cons '("+++UPDATE+++" . -999) (cdr to))))
7300 ;;; (imenu-choose-buffer-index "Packages: " (nth 2 cperl-hierarchy))
7305 (x-popup-menu t (nth 2 cperl-hierarchy))
7387 ;;;(x-popup-menu t
7413 (defun cperl-menu-to-keymap (menu &optional name)
7424 (cperl-menu-to-keymap list))))
7427 (cperl-list-fold menu "Root" imenu-max-items)))))
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))))
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)))))
7726 $^M A buffer for emergency memory allocation when running out of memory.
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))
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).
8731 "Spell-check HERE-documents in the Perl buffer.
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
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))))
8979 start from-start edebug-backtrace-buffer)
9020 ;; do to the end of buffer, not to END;;; likewise, start earlier if needed
9033 ;; Called when any modification is made to buffer text.