/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.649 by rms, Wed Apr 9 19:06:04 2003 UTC revision 1.650 by monnier, Mon Apr 14 20:48:44 2003 UTC
# Line 1559  in that case, this function acts as if ` Line 1559  in that case, this function acts as if `
1559       ("\\.c\\'" . c-mode)       ("\\.c\\'" . c-mode)
1560       ("\\.h\\'" . c-mode)       ("\\.h\\'" . c-mode)
1561       ("\\.tex\\'" . tex-mode)       ("\\.tex\\'" . tex-mode)
1562         ("\\.ins\\'" . tex-mode)           ;Installation files for TeX packages.
1563       ("\\.ltx\\'" . latex-mode)       ("\\.ltx\\'" . latex-mode)
1564         ("\\.dtx\\'" . doctex-mode)
1565       ("\\.el\\'" . emacs-lisp-mode)       ("\\.el\\'" . emacs-lisp-mode)
1566       ("\\.scm\\'" . scheme-mode)       ("\\.scm\\'" . scheme-mode)
1567       ("\\.l\\'" . lisp-mode)       ("\\.l\\'" . lisp-mode)
# Line 3421  that is more recent than the visited fil Line 3423  that is more recent than the visited fil
3423    
3424  This command also works for special buffers that contain text which  This command also works for special buffers that contain text which
3425  doesn't come from a file, but reflects some other data base instead:  doesn't come from a file, but reflects some other data base instead:
3426  for example, Dired buffers and buffer-list buffers.  In these cases,  for example, Dired buffers and `buffer-list' buffers.  In these cases,
3427  it reconstructs the buffer contents from the appropriate data base.  it reconstructs the buffer contents from the appropriate data base.
3428    
3429  When called from Lisp, the first argument is IGNORE-AUTO; only offer  When called from Lisp, the first argument is IGNORE-AUTO; only offer
# Line 3533  non-nil, it is called instead of rereadi Line 3535  non-nil, it is called instead of rereadi
3535                 ;; Run after-revert-hook as it was before we reverted.                 ;; Run after-revert-hook as it was before we reverted.
3536                 (setq-default revert-buffer-internal-hook global-hook)                 (setq-default revert-buffer-internal-hook global-hook)
3537                 (if local-hook-p                 (if local-hook-p
3538                     (progn                     (set (make-local-variable 'revert-buffer-internal-hook)
3539                       (make-local-variable 'revert-buffer-internal-hook)                          local-hook)
                      (setq revert-buffer-internal-hook local-hook))  
3540                   (kill-local-variable 'revert-buffer-internal-hook))                   (kill-local-variable 'revert-buffer-internal-hook))
3541                 (run-hooks 'revert-buffer-internal-hook))                 (run-hooks 'revert-buffer-internal-hook))
3542               t)))))               t)))))
# Line 3553  non-nil, it is called instead of rereadi Line 3554  non-nil, it is called instead of rereadi
3554    (interactive "FRecover file: ")    (interactive "FRecover file: ")
3555    (setq file (expand-file-name file))    (setq file (expand-file-name file))
3556    (if (auto-save-file-name-p (file-name-nondirectory file))    (if (auto-save-file-name-p (file-name-nondirectory file))
3557        (error "%s is an auto-save file" file))        (error "%s is an auto-save file" (abbreviate-file-name file)))
3558    (let ((file-name (let ((buffer-file-name file))    (let ((file-name (let ((buffer-file-name file))
3559                       (make-auto-save-file-name))))                       (make-auto-save-file-name))))
3560      (cond ((if (file-exists-p file)      (cond ((if (file-exists-p file)
3561                 (not (file-newer-than-file-p file-name file))                 (not (file-newer-than-file-p file-name file))
3562               (not (file-exists-p file-name)))               (not (file-exists-p file-name)))
3563             (error "Auto-save file %s not current" file-name))             (error "Auto-save file %s not current"
3564                      (abbreviate-file-name file-name)))
3565            ((save-window-excursion            ((save-window-excursion
3566               (with-output-to-temp-buffer "*Directory*"               (with-output-to-temp-buffer "*Directory*"
3567                 (buffer-disable-undo standard-output)                 (buffer-disable-undo standard-output)

Legend:
Removed from v.1.649  
changed lines
  Added in v.1.650

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26