[Emacs-diffs] Changes to emacs/lisp/files.el

[Stefan Monnier]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.649 emacs/lisp/files.el:1.650
*** emacs/lisp/files.el:1.649   Wed Apr  9 15:06:04 2003
--- emacs/lisp/files.el Mon Apr 14 16:48:44 2003
***************
*** 1559,1565 ****
--- 1559,1567 ----
       ("\\.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,3427 ****
  
  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,
  it reconstructs the buffer contents from the appropriate data base.
  
  When called from Lisp, the first argument is IGNORE-AUTO; only offer
--- 3423,3429 ----
  
  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,
  it reconstructs the buffer contents from the appropriate data base.
  
  When called from Lisp, the first argument is IGNORE-AUTO; only offer
***************
*** 3533,3541 ****
               ;; 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))
                 (kill-local-variable 'revert-buffer-internal-hook))
               (run-hooks 'revert-buffer-internal-hook))
             t)))))
--- 3535,3542 ----
               ;; Run after-revert-hook as it was before we reverted.
               (setq-default revert-buffer-internal-hook global-hook)
               (if local-hook-p
!                  (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,3565 ****
    (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))
    (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))
          ((save-window-excursion
             (with-output-to-temp-buffer "*Directory*"
               (buffer-disable-undo standard-output)
--- 3554,3567 ----
    (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" (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"
!                 (abbreviate-file-name file-name)))
          ((save-window-excursion
             (with-output-to-temp-buffer "*Directory*"
               (buffer-disable-undo standard-output)