From 4e16371510d74a74dce88bc7392254d8fdf8a14d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 14 Apr 2003 20:48:44 +0000 Subject: [PATCH] *** empty log message *** --- lisp/files.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index d11014a9a0c..9bb2de41993 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1559,7 +1559,9 @@ in that case, this function acts as if `enable-local-variables' were t." ("\\.c\\'" . c-mode) ("\\.h\\'" . c-mode) ("\\.tex\\'" . tex-mode) + ("\\.ins\\'" . tex-mode) ;Installation files for TeX packages. ("\\.ltx\\'" . latex-mode) + ("\\.dtx\\'" . doctex-mode) ("\\.el\\'" . emacs-lisp-mode) ("\\.scm\\'" . scheme-mode) ("\\.l\\'" . lisp-mode) @@ -3421,7 +3423,7 @@ that is more recent than the visited file. This command also works for special buffers that contain text which doesn't come from a file, but reflects some other data base instead: -for example, Dired buffers and buffer-list buffers. In these cases, +for example, Dired buffers and `buffer-list' buffers. In these cases, it reconstructs the buffer contents from the appropriate data base. When called from Lisp, the first argument is IGNORE-AUTO; only offer @@ -3533,9 +3535,8 @@ non-nil, it is called instead of rereading visited file contents." ;; Run after-revert-hook as it was before we reverted. (setq-default revert-buffer-internal-hook global-hook) (if local-hook-p - (progn - (make-local-variable 'revert-buffer-internal-hook) - (setq revert-buffer-internal-hook local-hook)) + (set (make-local-variable 'revert-buffer-internal-hook) + local-hook) (kill-local-variable 'revert-buffer-internal-hook)) (run-hooks 'revert-buffer-internal-hook)) t))))) @@ -3553,13 +3554,14 @@ non-nil, it is called instead of rereading visited file contents." (interactive "FRecover file: ") (setq file (expand-file-name file)) (if (auto-save-file-name-p (file-name-nondirectory file)) - (error "%s is an auto-save file" file)) + (error "%s is an auto-save file" (abbreviate-file-name file))) (let ((file-name (let ((buffer-file-name file)) (make-auto-save-file-name)))) (cond ((if (file-exists-p file) (not (file-newer-than-file-p file-name file)) (not (file-exists-p file-name))) - (error "Auto-save file %s not current" file-name)) + (error "Auto-save file %s not current" + (abbreviate-file-name file-name))) ((save-window-excursion (with-output-to-temp-buffer "*Directory*" (buffer-disable-undo standard-output) -- 2.39.2