Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 255:084402c475ba r20-5b26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b26
author cvs
date Mon, 13 Aug 2007 10:21:18 +0200
parents f955c73f5258
children 727739f917cb
comparison
equal deleted inserted replaced
254:e92abcaa252b 255:084402c475ba
1126 ((not buffer-read-only) 1126 ((not buffer-read-only)
1127 (if (and warn 1127 (if (and warn
1128 (file-newer-than-file-p (make-auto-save-file-name) 1128 (file-newer-than-file-p (make-auto-save-file-name)
1129 buffer-file-name)) 1129 buffer-file-name))
1130 (format "%s has auto save data; consider M-x recover-file" 1130 (format "%s has auto save data; consider M-x recover-file"
1131 (file-name-nondirectory buffer-file-name))
1131 (setq not-serious t) 1132 (setq not-serious t)
1132 (if error (gettext "(New file)") nil)))) 1133 (if error (gettext "(New file)") nil)))
1133 ((not error) 1134 ((not error)
1134 (setq not-serious t) 1135 (setq not-serious t)
1135 (gettext "Note: file is write protected")) 1136 (gettext "Note: file is write protected"))
1136 ((file-attributes (directory-file-name default-directory)) 1137 ((file-attributes (directory-file-name default-directory))
1137 (gettext "File not found and directory write-protected")) 1138 (gettext "File not found and directory write-protected"))
1153 buffer-file-name) 1154 buffer-file-name)
1154 t))) 1155 t)))
1155 nil)))) 1156 nil))))
1156 (if msg 1157 (if msg
1157 (progn 1158 (progn
1158 (message msg) 1159 (message "%s" msg)
1159 (or not-serious (sit-for 1 t))))) 1160 (or not-serious (sit-for 1 t)))))
1160 (if (and auto-save-default (not noauto)) 1161 (if (and auto-save-default (not noauto))
1161 (auto-save-mode t))) 1162 (auto-save-mode t)))
1162 (unless nomodes 1163 (unless nomodes
1163 (normal-mode t) 1164 (normal-mode t)