Mercurial > emacs

changeset 50593:9ede3f237c05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 14 Apr 2003 20:48:44 +0000
parents 73473fb92184
children 09c07c654b23
files lisp/files.el
diffstat 1 files changed, 8 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Mon Apr 14 19:58:05 2003 +0000
+++ b/lisp/files.el	Mon Apr 14 20:48:44 2003 +0000
@@ -1559,7 +1559,9 @@
      ("\\.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 @@
 
 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 @@
 	       ;; 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 @@
   (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)