Commit 7458cc35 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(auto-mode-alist): .ksh suffix means sh-mode.

(write-file): Interactively, prefix arg means don't confirm.
parent a078558d
...@@ -955,7 +955,7 @@ run `normal-mode' explicitly." ...@@ -955,7 +955,7 @@ run `normal-mode' explicitly."
("ChangeLog.[0-9]+\\'" . change-log-mode) ("ChangeLog.[0-9]+\\'" . change-log-mode)
("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode) ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode)
("\\.scm\\.[0-9]*\\'" . scheme-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_profile\\|z?login\\|bash_login\\|z?logout\\)\\'" . sh-mode)
("/\\.\\(bash_logout\\|[kz]shrc\\|bashrc\\|t?cshrc\\|esrc\\)\\'" . sh-mode) ("/\\.\\(bash_logout\\|[kz]shrc\\|bashrc\\|t?cshrc\\|esrc\\)\\'" . sh-mode)
("/\\.\\([kz]shenv\\|xinitrc\\|startxrc\\|xsession\\)\\'" . sh-mode) ("/\\.\\([kz]shenv\\|xinitrc\\|startxrc\\|xsession\\)\\'" . sh-mode)
...@@ -1487,8 +1487,10 @@ Makes buffer visit that file, and marks it not modified. ...@@ -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 If the buffer is already visiting a file, you can specify
a directory name as FILENAME, to write a file of the same a directory name as FILENAME, to write a file of the same
old name in that directory. old name in that directory.
If optional second arg CONFIRM is non-nil, 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 "FWrite file: ")
(interactive (interactive
(list (if buffer-file-name (list (if buffer-file-name
...@@ -1498,7 +1500,7 @@ ask for confirmation for overwriting an existing file." ...@@ -1498,7 +1500,7 @@ ask for confirmation for overwriting an existing file."
(cdr (assq 'default-directory (cdr (assq 'default-directory
(buffer-local-variables))) (buffer-local-variables)))
nil nil (buffer-name))) nil nil (buffer-name)))
t)) (not current-prefix-arg)))
(or (null filename) (string-equal filename "") (or (null filename) (string-equal filename "")
(progn (progn
;; If arg is just a directory, ;; If arg is just a directory,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment