Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 211:78478c60bfcd r20-4b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents 41ff10fd062f
children 262b8bb4a523
comparison
equal deleted inserted replaced
210:49f55ca3ba57 211:78478c60bfcd
962 The buffer is not selected, just returned to the caller. 962 The buffer is not selected, just returned to the caller.
963 If NOWARN is non-nil, warning messages about several potential 963 If NOWARN is non-nil, warning messages about several potential
964 problems will be suppressed." 964 problems will be suppressed."
965 (setq filename (abbreviate-file-name (expand-file-name filename))) 965 (setq filename (abbreviate-file-name (expand-file-name filename)))
966 (if (file-directory-p filename) 966 (if (file-directory-p filename)
967 (if find-file-run-dired 967 (if (and (fboundp 'dired-noselect) find-file-run-dired)
968 (dired-noselect (if find-file-use-truenames 968 (dired-noselect (if find-file-use-truenames
969 (abbreviate-file-name (file-truename filename)) 969 (abbreviate-file-name (file-truename filename))
970 filename)) 970 filename))
971 (error "%s is a directory." filename)) 971 (error "%s is a directory." filename))
972 (let* ((buf (get-file-buffer filename)) 972 (let* ((buf (get-file-buffer filename))