Lines Matching +defs:save +defs:buffers +defs:kill +defs:emacs
57 ;; lines to your .emacs file:
110 ;; code in .emacs. For an example of what to put into .emacs, check
111 ;; the TexInfo documentation or see a complete .emacs available at the
125 ;; emacs abbrev expansion done by the self-insert-command. It ends
191 :link '(emacs-commentary-link :tag "Commentary in idlw-shell.el"
193 :link '(emacs-commentary-link :tag "Commentary in idlwave.el" "idlwave.el")
381 (defcustom idlwave-scan-all-buffers-for-routine-info t
382 "*Non-nil means, scan buffers for IDL programs when updating info.
386 nil Don't scan any buffers.
387 t Scan all idlwave-mode buffers in the current editing session.
388 current Scan only the current buffer, but no other buffers."
392 (const :tag "All buffers" t)
404 '(find-file save-buffer kill-buffer compile-buffer)
410 find-file Add info for new IDLWAVE buffers.
411 save-buffer Update buffer info when buffer is saved
412 kill-buffer Remove buffer info when buffer gets killed
413 compile-buffer Update shell info after `idlwave-shell-save-and...'"
420 (const :tag "When saving a buffer" save-buffer)
421 (const :tag "After a buffer was killed" kill-buffer)
572 "*Non-nil means, the case of tokens in buffers dominates over system stuff.
574 the routine info from the buffers. This is slow.
765 must set it directly using `setq' in the .emacs file before idlwave.el
1037 source buffers. These are additional convenience bindings, the debugging
1425 "Syntax table in use in `idlwave-mode' buffers.")
1566 'idlwave-shell-save-and-run)
1573 (define-key idlwave-mode-map "\C-c\C-d\C-c" 'idlwave-shell-save-and-run)
1581 (define-key idlwave-mode-map "\C-c\C-k" 'idlwave-kill-autoloaded-buffers)
1590 (autoload 'idlwave-shell-save-and-run "idlw-shell"
1646 (let ((abbrevs-changed nil) ;; mask the current value to avoid save
1825 routines, all routines in idlwave-mode buffers and (when the
1905 (kill-all-local-variables)
1986 ;; (make-local-hook 'kill-buffer-hook)
1987 (add-hook 'kill-buffer-hook 'idlwave-kill-buffer-update nil 'local)
1988 ;; (make-local-hook 'after-save-hook)
1989 (add-hook 'after-save-hook 'idlwave-save-buffer-update nil 'local)
1990 (add-hook 'after-save-hook 'idlwave-revoke-license-to-kill nil 'local)
2026 (save-excursion
2096 (save-excursion
2138 (save-excursion
2149 (save-excursion
2164 (eol-pos (save-excursion (end-of-line) (point)))
2170 (save-excursion
2194 (save-excursion
2209 (save-excursion
2214 (let ((limit (save-excursion
2233 (unless (save-excursion
2259 ;; Key binding: pad only on left, to save for possible >=/<=
2279 (save-restriction
2365 (if (save-excursion (skip-chars-backward " \t") (bolp))
2498 (let ((eos (save-excursion
2506 (let ((eos (save-excursion
2540 (save-excursion
2561 (if (save-excursion (forward-line -1) (idlwave-is-continuation-line))
2587 (save-excursion
2634 (let ((save-point (point)))
2638 (goto-char save-point)
2639 (if (eq (char-after (- (point) 2)) ?&) (goto-char save-point))))
2656 (eos (save-excursion (idlwave-end-of-statement) (point)))
2710 (save-excursion
2754 (save-excursion
2770 (let ((st (save-excursion ; To catch "for" variables
2773 (what (save-excursion ; To catch keywords
2790 (save-excursion
2813 (if (save-excursion
2818 (save-excursion
2890 (save-excursion
2898 (save-excursion
2910 (save-excursion
2918 (save-excursion
2926 ((save-excursion
2934 (save-excursion
3010 (save-excursion
3013 (beg-last-statement (save-excursion (idlwave-previous-statement)
3098 (if (save-match-data (looking-at "[ \t$]*\\(;.*\\)?$"))
3111 (save-excursion
3140 (save-excursion
3174 (unit-limit (or (save-excursion
3218 (save-excursion
3230 (save-excursion
3240 (save-excursion
3246 (save-excursion
3263 (eos (save-excursion
3289 (if (save-excursion
3305 (save-excursion
3308 (save-excursion
3318 (save-excursion (end-of-line) (point))
3328 (buffer-substring (save-excursion
3373 (save-excursion
3385 (save-excursion (end-of-line) (point))
3410 (save-excursion (end-of-line) (point))
3424 (save-excursion (end-of-line) (point))
3436 (save-excursion
3461 (save-excursion
3465 (save-excursion (beginning-of-line) (point))
3468 (save-excursion
3472 (save-excursion (end-of-line) (point))
3485 (save-excursion
3501 (save-excursion
3505 (if (save-excursion
3514 (save-excursion
3524 (save-excursion (end-of-line) (point)) t)
3530 (if (save-excursion
3536 (save-excursion
3541 (save-excursion
3549 (save-excursion
3562 (save-excursion
3679 (save-excursion
3700 (save-excursion
3749 (save-excursion
3785 (let ((beg (save-excursion (beginning-of-line) (point)))
3790 (save-excursion
3904 (defvar idlwave-outlawed-buffers nil
3906 Buffers in this list may be killed by `idlwave-kill-autoloaded-buffers'.")
3912 (if why (add-to-list 'idlwave-outlawed-buffers (cons buf why)))
3915 (defun idlwave-kill-autoloaded-buffers ()
3916 "Kill buffers created automatically by IDLWAVE.
3917 Function prompts for a letter to identify the buffers to kill.
3928 (if (null idlwave-outlawed-buffers)
3929 (error "No IDLWAVE-created buffers available")
3930 (princ (format "Kill IDLWAVE-created buffers: [f]ind source(%d), [s]hell display(%d), [a]ll ? "
3931 (idlwave-count-outlawed-buffers 'find)
3932 (idlwave-count-outlawed-buffers 'shell)))
3936 (idlwave-do-kill-autoloaded-buffers 'find))
3938 (idlwave-do-kill-autoloaded-buffers 'shell))
3940 (idlwave-do-kill-autoloaded-buffers t))
3943 (defun idlwave-count-outlawed-buffers (tag)
3944 "How many outlawed buffers have tag TAG?"
3948 idlwave-outlawed-buffers))))
3950 (defun idlwave-do-kill-autoloaded-buffers (&rest reasons)
3951 "Kill all buffers pulled up by IDLWAVE matching REASONS."
3952 (let* ((list (copy-sequence idlwave-outlawed-buffers))
3959 (kill-buffer (car entry))
3961 (setq idlwave-outlawed-buffers
3962 (delq entry idlwave-outlawed-buffers)))
3963 (setq idlwave-outlawed-buffers
3964 (delq entry idlwave-outlawed-buffers))))
3967 (defun idlwave-revoke-license-to-kill ()
3968 "Remove BUFFER from the buffers which may be killed.
3969 Killing would be done by `idlwave-do-kill-autoloaded-buffers'.
3970 Intended for `after-save-hook'."
3972 (entry (assq buf idlwave-outlawed-buffers)))
3975 (setq idlwave-outlawed-buffers
3976 (delq entry idlwave-outlawed-buffers)))
3978 (remove-hook 'after-save-hook 'idlwave-revoke-license-to-kill 'local)))
4047 (kill-buffer buffer))
4084 (kill-buffer errbuf))
4098 (save-excursion
4137 ;; buffers for routine information do not intern the grabbed strings.
4326 "Holds the routine-info obtained by scanning buffers.")
4328 "Holds the routine-info obtained by scanning buffers.")
4383 (kill-process idlwave-catalog-process)
4410 (kill-process idlwave-catalog-process)
4415 (kill-process idlwave-catalog-process)
4421 (let* ((emacs (concat invocation-directory invocation-name))
4423 "-l" (expand-file-name "~/.emacs")
4427 nil emacs args)))
4450 ;; and is sinterned to save space, as is LIBNAME. PRO_FILE can be a
4470 Scans all IDLWAVE-mode buffers of the current editing session (see
4471 `idlwave-scan-all-buffers-for-routine-info').
4522 ;; We first do the system info, and then the buffers
4874 (defun idlwave-save-routine-info ()
4989 (idlwave-save-routine-info)
5121 ((eq idlwave-scan-all-buffers-for-routine-info t)
5122 ;; Scan all buffers, current buffer last
5123 (message "Scanning all buffers...")
5124 (setq res (idlwave-get-routine-info-from-buffers
5126 ((null idlwave-scan-all-buffers-for-routine-info)
5127 ;; Don't scan any buffers
5134 (setq res (idlwave-get-routine-info-from-buffers
5143 ;; later ones. We assume that if things in the buffers are newer
5175 (defun idlwave-save-buffer-update ()
5176 (idlwave-update-current-buffer-info 'save-buffer))
5177 (defun idlwave-kill-buffer-update ()
5178 (idlwave-update-current-buffer-info 'kill-buffer))
5183 "Update idlwave-routines for current buffer. Can run from after-save-hook."
5187 idlwave-scan-all-buffers-for-routine-info
5193 (if (eq why 'kill-buffer)
5197 (idlwave-get-routine-info-from-buffers
5209 ;; when two buffers visit the same file. Then the file names
5222 ;;----- Scanning buffers -------------------
5224 (defun idlwave-get-routine-info-from-buffers (buffers)
5225 "Call `idlwave-get-buffer-routine-info' on idlwave-mode buffers in BUFFERS."
5227 (save-excursion
5228 (while (setq buf (pop buffers))
5244 (save-excursion
5245 (save-restriction
5414 directories and save the routine info.
5427 (kill-buffer (get-buffer-create "*IDLWAVE Widget*"))
5429 (kill-all-local-variables)
5465 (kill-buffer (current-buffer)))
5527 (save-excursion
5545 (append (idlwave-get-routine-info-from-buffers
5549 (kill-buffer "*idlwave-scan.pro*")
5550 (kill-buffer (get-buffer-create "*IDLWAVE Widget*"))
5573 (save-buffer 0)
5574 (kill-buffer (current-buffer)))
5614 (save-buffer 0)
5615 (kill-buffer (current-buffer))))
5828 (defvar idlwave-shell-temp-rinfo-save-file)
5833 (save-excursion
5838 (save-buffer 0))
5843 (format "save,'idlwave_print_safe','idlwave_routine_info','idlwave_print_info_entry','idlwave_get_class_tags','idlwave_get_sysvars',FILE='%s',/ROUTINES"
5852 idlwave-shell-temp-rinfo-save-file
5853 idlwave-shell-temp-rinfo-save-file)
5863 ;; particular, .RESET_SESSION will kill all user procedures. If
6372 (save-excursion (goto-char apos)
6402 (save-excursion (goto-char apos)
6505 (let* (;(bos (save-excursion (idlwave-beginning-of-statement) (point)))
6506 (bos (save-excursion (idlwave-start-of-substatement 'pre) (point)))
6560 (save-excursion
6575 (save-excursion
6594 (save-restriction
6595 (save-excursion
6631 (save-excursion
6660 (save-excursion
6694 (save-excursion
6737 (save-excursion
6827 (save-excursion
6862 (>= emacs-major-version 21)))
6961 (setq menu (idlwave-split-menu-emacs menu maxpopup))
6990 (defun idlwave-split-menu-emacs (menu N)
7048 (idlwave-display-completion-list-emacs list))
7076 (let ((beg (save-excursion
7122 (save-window-excursion
7185 (save-excursion
7191 (save-excursion
7208 (save-excursion
7232 (defun idlwave-display-completion-list-emacs (list)
7236 (save-excursion
7241 (idlwave-make-modified-completion-map-emacs
7244 (defun idlwave-make-modified-completion-map-emacs (old-map)
7291 (save-excursion
7297 (save-restriction
7319 (save-excursion
7326 (save-restriction
7345 (save-excursion
7355 (save-excursion
7446 (setq end-lim (save-excursion (idlwave-end-of-subprogram) (point)))
7475 (save-excursion
7483 (save-excursion
7612 (if (save-excursion
7673 (cond ((save-excursion
7683 ((save-excursion
7849 (save-excursion
7851 (save-excursion
7951 (save-excursion
8046 (idlwave-save-buffer-update)
8127 (save-excursion
8144 (next-char (save-excursion (skip-chars-forward "a-zA-Z0-9$_")
8206 (save-excursion
8231 (let* ((bos (save-excursion (idlwave-beginning-of-statement) (point)))
8397 (save-excursion
8666 (unless (save-excursion
8683 nil (idlwave-update-current-buffer-info 'save-buffer)
8767 (save-excursion
8997 (idlwave-xor abufp bbufp)) abufp) ; Buffers before non-buffers
9084 (save-match-data
9222 ["Kill auto-created buffers" idlwave-kill-autoloaded-buffers t]
9252 ["Save and .RUN buffer" idlwave-shell-save-and-run
9289 ["Save" Custom-save t]
9373 (save-excursion