diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-02-02 18:47:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-02-02 18:47:34 +0000 |
| commit | 9799d33eb25a963aa9c6dfac3a01593c8484eb4e (patch) | |
| tree | 024b51239afbdffc4aafbcfb0cf6a9fdc522e10f | |
| parent | 74bea5502dbd143fa3f57ced7af27e326e0de930 (diff) | |
| download | emacs-9799d33eb25a963aa9c6dfac3a01593c8484eb4e.tar.gz | |
(auto-mode-alist): .ksh suffix means sh-mode.
(write-file): Interactively, prefix arg means don't confirm.
| -rw-r--r-- | lisp/files.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 0afa0fe170a..bb2d6314b8a 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -955,7 +955,7 @@ run `normal-mode' explicitly." ("ChangeLog.[0-9]+\\'" . change-log-mode) ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode) ("\\.scm\\.[0-9]*\\'" . scheme-mode) - ("\\.c?sh\\'\\|\\.shar\\'\\|/\\.z?profile\\'" . sh-mode) + ("\\.[ck]?sh\\'\\|\\.shar\\'\\|/\\.z?profile\\'" . sh-mode) ("/\\.\\(bash_profile\\|z?login\\|bash_login\\|z?logout\\)\\'" . sh-mode) ("/\\.\\(bash_logout\\|[kz]shrc\\|bashrc\\|t?cshrc\\|esrc\\)\\'" . sh-mode) ("/\\.\\([kz]shenv\\|xinitrc\\|startxrc\\|xsession\\)\\'" . sh-mode) @@ -1487,8 +1487,10 @@ Makes buffer visit that file, and marks it not modified. If the buffer is already visiting a file, you can specify a directory name as FILENAME, to write a file of the same old name in that directory. + If optional second arg CONFIRM is non-nil, -ask for confirmation for overwriting an existing file." +ask for confirmation for overwriting an existing file. +Interactively, confirmation is required unless you supply a prefix argument." ;; (interactive "FWrite file: ") (interactive (list (if buffer-file-name @@ -1498,7 +1500,7 @@ ask for confirmation for overwriting an existing file." (cdr (assq 'default-directory (buffer-local-variables))) nil nil (buffer-name))) - t)) + (not current-prefix-arg))) (or (null filename) (string-equal filename "") (progn ;; If arg is just a directory, |