aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPhillip Lord2016-03-13 18:33:10 +0000
committerPhillip Lord2016-03-13 18:33:10 +0000
commitba24c99ec665501fb05cabd77c4115fa1fa9c305 (patch)
tree78762744f95ab0267eb515c075287e8bdade05da
parentd457fd9dc782465e1547f74021390c9d5951d6af (diff)
downloademacs-ba24c99ec665501fb05cabd77c4115fa1fa9c305.tar.gz
emacs-ba24c99ec665501fb05cabd77c4115fa1fa9c305.zip
Revert "Simplify "Visit New File" to "New File""
This reverts commit d457fd9dc782465e1547f74021390c9d5951d6af.
-rw-r--r--doc/emacs/files.texi2
-rw-r--r--lisp/menu-bar.el2
-rw-r--r--lisp/startup.el4
3 files changed, 4 insertions, 4 deletions
diff --git a/doc/emacs/files.texi b/doc/emacs/files.texi
index c482b90d953..ab20d4a18f9 100644
--- a/doc/emacs/files.texi
+++ b/doc/emacs/files.texi
@@ -288,7 +288,7 @@ see @ref{Drag and Drop}, and @ref{Misc Dired Features}.
288 288
289 On text-mode terminals and on graphical displays when Emacs was 289 On text-mode terminals and on graphical displays when Emacs was
290built without a GUI toolkit, you can visit files via the menu-bar 290built without a GUI toolkit, you can visit files via the menu-bar
291@samp{File} menu, which has a @samp{New File} item. 291@samp{File} menu, which has a @samp{Visit New File} item.
292 292
293 Each time you visit a file, Emacs automatically scans its contents 293 Each time you visit a file, Emacs automatically scans its contents
294to detect what character encoding and end-of-line convention it uses, 294to detect what character encoding and end-of-line convention it uses,
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 0557214fe24..6281d7e5453 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -192,7 +192,7 @@
192 :enable (menu-bar-non-minibuffer-window-p) 192 :enable (menu-bar-non-minibuffer-window-p)
193 :help "Read an existing file into an Emacs buffer")) 193 :help "Read an existing file into an Emacs buffer"))
194 (bindings--define-key menu [new-file] 194 (bindings--define-key menu [new-file]
195 '(menu-item "New File..." find-file 195 '(menu-item "Visit New File..." find-file
196 :enable (menu-bar-non-minibuffer-window-p) 196 :enable (menu-bar-non-minibuffer-window-p)
197 :help "Specify a new file's name, to edit the file")) 197 :help "Specify a new file's name, to edit the file"))
198 198
diff --git a/lisp/startup.el b/lisp/startup.el
index a411891d1f6..15a79f6f5bf 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1998,7 +1998,7 @@ To quit a partially entered command, type Control-g.\n")
1998 (insert " How to order printed manuals from the FSF\n") 1998 (insert " How to order printed manuals from the FSF\n")
1999 1999
2000 (insert "\nUseful tasks:\n") 2000 (insert "\nUseful tasks:\n")
2001 (insert-button "New File" 2001 (insert-button "Visit New File"
2002 'action (lambda (_button) (call-interactively 'find-file)) 2002 'action (lambda (_button) (call-interactively 'find-file))
2003 'follow-link t) 2003 'follow-link t)
2004 (insert (substitute-command-keys 2004 (insert (substitute-command-keys
@@ -2075,7 +2075,7 @@ If you have no Meta key, you may instead type ESC followed by the character.)"))
2075 ;; Insert links to useful tasks 2075 ;; Insert links to useful tasks
2076 (insert "\nUseful tasks:\n") 2076 (insert "\nUseful tasks:\n")
2077 2077
2078 (insert-button "New File" 2078 (insert-button "Visit New File"
2079 'action (lambda (_button) (call-interactively 'find-file)) 2079 'action (lambda (_button) (call-interactively 'find-file))
2080 'follow-link t) 2080 'follow-link t)
2081 (insert "\t\t\t") 2081 (insert "\t\t\t")