emacs/lisp/files.el

30 ;; ITS-id version control, load- and write-hook handling, and the like.
382   :type '(hook :options (cvs-dired-noselect dired-noselect))
397 (defcustom find-file-hook nil
402   :type 'hook
405 (define-obsolete-variable-alias 'find-file-hooks 'find-file-hook "22.1")
416 This hook is not run if any of the functions in
421 updates before the buffer is saved, use `before-save-hook'.")
445 use `before-save-hook'.")
518   "History list of file names entered in the minibuffer.")
521 (put 'ange-ftp-completion-hook-function 'safe-magic t)
522 (defun ange-ftp-completion-hook-function (op &rest args)
524 Runs the usual ange-ftp hook, but only for completion operations."
528       (apply 'ange-ftp-hook-function op args)
530 	   (cons 'ange-ftp-completion-hook-function
570 If the user exits with an empty minibuffer, this function returns
787 	     (delq (rassq 'ange-ftp-completion-hook-function tem) tem)))))
1038 (defmacro minibuffer-with-setup-hook (fun &rest body)
1039   "Add FUN to `minibuffer-setup-hook' while executing BODY.
1040 BODY should use the minibuffer at most once.
1041 Recursive uses of the minibuffer will not be affected."
1043   (let ((hook (make-symbol "setup-hook")))
1044     `(let (,hook)
1045        (setq ,hook
1047 	       ;; Clear out this hook so it does not interfere
1048 	       ;; with any recursive minibuffer usage.
1049 	       (remove-hook 'minibuffer-setup-hook ,hook)
1053 	     (add-hook 'minibuffer-setup-hook ,hook)
1055 	 (remove-hook 'minibuffer-setup-hook ,hook)))))
1061 	  (minibuffer-with-setup-hook
1062 	      (lambda () (setq minibuffer-default find-file-default))
1071 but the visited file name is available through the minibuffer history:
1072 type M-n to pull it into the minibuffer.
1092 but the visited file name is available through the minibuffer history:
1093 type M-n to pull it into the minibuffer.
1112 but the visited file name is available through the minibuffer history:
1113 type M-n to pull it into the minibuffer.
1226   (unless (run-hook-with-args-until-failure 'kill-buffer-query-functions)
1435 	       (run-hook-with-args-until-success
1638 	   (or (run-hook-with-args-until-success 'find-file-not-found-functions)
1682 conversion, `find-file-hook', automatic uncompression, etc.
1766 Finishes by calling the functions in `find-file-hook'
1832     (run-hooks 'find-file-hook)))
2377 (defvar hack-local-variables-hook nil
2378   "Normal hook run after processing a file's local variables specs.
2760 	(run-hooks 'hack-local-variables-hook)))))
2781  * Its name ends with \"hook(s)\", \"function(s)\", \"form(s)\", \"map\",
2812 	     (cond ((eq prop 'lisp-indent-hook)
2813 		    ;; Only allow safe values of lisp-indent-hook;
2881 Remember to delete the initial contents of the minibuffer
2942   ;; Changing to visit an ordinary local file instead should flush the hook.
2995 the default file name into the minibuffer to edit it, using \\<minibuffer-local-map>\\[next-history-element].
3035   (vc-find-file-hook))
3581 (defvar auto-save-hook nil
3582   "Normal hook run just before auto-saving.")
3584 (defcustom before-save-hook nil
3585   "Normal hook that is run before a buffer is saved to its file."
3587   :type 'hook
3590 (defcustom after-save-hook nil
3591   "Normal hook that is run after a buffer is saved to its file."
3593   :type 'hook
3613 `before-save-hook' and `after-save-hook', respectively."
3681 	    (run-hooks 'before-save-hook)
3682 	    (or (run-hook-with-args-until-success 'write-contents-functions)
3683 		(run-hook-with-args-until-success 'local-write-file-hooks)
3684 		(run-hook-with-args-until-success 'write-file-functions)
3685 		;; If a hook returned t, file is already "written".
3705 	  (run-hooks 'after-save-hook))
3828       ;; in the minibuffer.
3938 prints a message in the minibuffer.  Instead, use `set-buffer-modified-p'."
4091 (defvar before-revert-hook nil
4092   "Normal hook for `revert-buffer' to run before reverting.
4094 mechanism, this hook is not used.")
4096 (defvar after-revert-hook nil
4097   "Normal hook for `revert-buffer' to run after reverting.
4098 Note that the hook value that it runs is the value that was in effect
4100 hook functions.
4103 mechanism, this hook is not used.")
4105 (defvar revert-buffer-internal-hook)
4133 `before-revert-hook' and `after-revert-hook' are run at the beginning
4167 	       (run-hooks 'before-revert-hook)
4173 	       ;; Effectively copy the after-revert-hook status,
4175 	       (let ((global-hook (default-value 'after-revert-hook))
4176 		     (local-hook (when (local-variable-p 'after-revert-hook)
4177 				   after-revert-hook))
4238 		 ;; Run after-revert-hook as it was before we reverted.
4239 		 (setq-default revert-buffer-internal-hook global-hook)
4240 		 (if local-hook
4241 		     (set (make-local-variable 'revert-buffer-internal-hook)
4242 			  local-hook)
4243 		   (kill-local-variable 'revert-buffer-internal-hook))
4244 		 (run-hooks 'revert-buffer-internal-hook))
4254   ;; Actually putting the file name in the minibuffer should be used
5199 See also `kill-emacs-hook'.")
5234        (run-hook-with-args-until-failure 'kill-emacs-query-functions)