Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 526:a5ee2ca8672c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-09 17:18:32 by ben] fix byte-compilation warnings.
author ben
date Wed, 09 May 2001 17:18:32 +0000
parents 7039e6323819
children ff0d9e7facba
comparison
equal deleted inserted replaced
525:77fb0aa0e69f 526:a5ee2ca8672c
918 If NOWARN is non-nil, warning messages will be suppressed. 918 If NOWARN is non-nil, warning messages will be suppressed.
919 If RAWFILE is non-nil, the file is read literally." 919 If RAWFILE is non-nil, the file is read literally."
920 (setq filename (abbreviate-file-name (expand-file-name filename))) 920 (setq filename (abbreviate-file-name (expand-file-name filename)))
921 (if (file-directory-p filename) 921 (if (file-directory-p filename)
922 (if (and (fboundp 'dired-noselect) find-file-run-dired) 922 (if (and (fboundp 'dired-noselect) find-file-run-dired)
923 (dired-noselect (if find-file-use-truenames 923 (declare-fboundp
924 (abbreviate-file-name (file-truename filename)) 924 (dired-noselect (if find-file-use-truenames
925 filename)) 925 (abbreviate-file-name (file-truename filename))
926 filename)))
926 (error "%s is a directory" filename)) 927 (error "%s is a directory" filename))
927 (let* ((buf (get-file-buffer filename)) 928 (let* ((buf (get-file-buffer filename))
928 (truename (abbreviate-file-name (file-truename filename))) 929 (truename (abbreviate-file-name (file-truename filename)))
929 (number (nthcdr 10 (file-attributes truename))) 930 (number (nthcdr 10 (file-attributes truename)))
930 ; ;; Find any buffer for a file which has same truename. 931 ; ;; Find any buffer for a file which has same truename.
2881 "Choose one saved session to recover auto-save files from. 2882 "Choose one saved session to recover auto-save files from.
2882 This command is used in the special Dired buffer created by 2883 This command is used in the special Dired buffer created by
2883 \\[recover-session]." 2884 \\[recover-session]."
2884 (interactive) 2885 (interactive)
2885 ;; Get the name of the session file to recover from. 2886 ;; Get the name of the session file to recover from.
2886 (let ((file (dired-get-filename)) 2887 (let ((file (declare-fboundp (dired-get-filename)))
2887 files 2888 files
2888 (buffer (get-buffer-create " *recover*"))) 2889 (buffer (get-buffer-create " *recover*")))
2889 ;; #### dired-do-flagged-delete in FSF. 2890 ;; #### dired-do-flagged-delete in FSF.
2890 ;; This version is for ange-ftp 2891 ;; This version is for ange-ftp
2891 ;;(dired-do-deletions t) 2892 ;;(dired-do-deletions t)
2892 ;; This version is for efs 2893 ;; This version is for efs
2893 (dired-expunge-deletions) 2894 (declare-fboundp (dired-expunge-deletions))
2894 (unwind-protect 2895 (unwind-protect
2895 (save-excursion 2896 (save-excursion
2896 ;; Read in the auto-save-list file. 2897 ;; Read in the auto-save-list file.
2897 (set-buffer buffer) 2898 (set-buffer buffer)
2898 (erase-buffer) 2899 (erase-buffer)