Mercurial > emacs

comparison lisp/files.el @ 44766:54182658872c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(after-find-file): Use %s to output MSG.
author Richard M. Stallman <rms@gnu.org>
date Tue, 23 Apr 2002 03:45:26 +0000
parents 3936c522b4d3
children 5eca5e9178c8
comparison
equal deleted inserted replaced
44765:235fbe39918b 44766:54182658872c
1330 (setq buffer-read-only nil) 1330 (setq buffer-read-only nil)
1331 (if (file-exists-p (file-name-directory (directory-file-name (file-name-directory buffer-file-name)))) 1331 (if (file-exists-p (file-name-directory (directory-file-name (file-name-directory buffer-file-name))))
1332 "Use M-x make-directory RET RET to create the directory" 1332 "Use M-x make-directory RET RET to create the directory"
1333 "Use C-u M-x make-directory RET RET to create directory and its parents"))))) 1333 "Use C-u M-x make-directory RET RET to create directory and its parents")))))
1334 (when msg 1334 (when msg
1335 (message msg) 1335 (message "%s" msg)
1336 (or not-serious (sit-for 1 nil t)))) 1336 (or not-serious (sit-for 1 nil t))))
1337 (when (and auto-save-default (not noauto)) 1337 (when (and auto-save-default (not noauto))
1338 (auto-save-mode t))) 1338 (auto-save-mode t)))
1339 ;; Make people do a little extra work (C-x C-q) 1339 ;; Make people do a little extra work (C-x C-q)
1340 ;; before altering a backup file. 1340 ;; before altering a backup file.