diff options
| author | Phillip Lord <phillip.lord@russet.org.uk> | 2016-03-12 22:26:20 +0000 |
|---|---|---|
| committer | Phillip Lord <phillip.lord@russet.org.uk> | 2016-03-12 22:26:20 +0000 |
| commit | d457fd9dc782465e1547f74021390c9d5951d6af (patch) | |
| tree | b969f475a2434c3080d0f756bdfc237995ca5c2a | |
| parent | 983448dfa062e3e8512e79edf08dcf16ad56b8bd (diff) | |
| download | emacs-d457fd9dc782465e1547f74021390c9d5951d6af.tar.gz | |
Simplify "Visit New File" to "New File"
* doc/emacs/files.texi,lisp/menu-bar.el (menu-bar-file-menu),
lisp/startup.el(normal-mouse-start-screen,
normal-no-mouse-startup-screen): Change label "Visit New File" to "New
File".
| -rw-r--r-- | doc/emacs/files.texi | 2 | ||||
| -rw-r--r-- | lisp/menu-bar.el | 2 | ||||
| -rw-r--r-- | lisp/startup.el | 4 |
3 files changed, 4 insertions, 4 deletions
diff --git a/doc/emacs/files.texi b/doc/emacs/files.texi index ab20d4a18f9..c482b90d953 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}. On text-mode terminals and on graphical displays when Emacs was built without a GUI toolkit, you can visit files via the menu-bar -@samp{File} menu, which has a @samp{Visit New File} item. +@samp{File} menu, which has a @samp{New File} item. Each time you visit a file, Emacs automatically scans its contents to detect what character encoding and end-of-line convention it uses, diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 6281d7e5453..0557214fe24 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -192,7 +192,7 @@ :enable (menu-bar-non-minibuffer-window-p) :help "Read an existing file into an Emacs buffer")) (bindings--define-key menu [new-file] - '(menu-item "Visit New File..." find-file + '(menu-item "New File..." find-file :enable (menu-bar-non-minibuffer-window-p) :help "Specify a new file's name, to edit the file")) diff --git a/lisp/startup.el b/lisp/startup.el index 15a79f6f5bf..a411891d1f6 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1998,7 +1998,7 @@ To quit a partially entered command, type Control-g.\n") (insert " How to order printed manuals from the FSF\n") (insert "\nUseful tasks:\n") - (insert-button "Visit New File" + (insert-button "New File" 'action (lambda (_button) (call-interactively 'find-file)) 'follow-link t) (insert (substitute-command-keys @@ -2075,7 +2075,7 @@ If you have no Meta key, you may instead type ESC followed by the character.)")) ;; Insert links to useful tasks (insert "\nUseful tasks:\n") - (insert-button "Visit New File" + (insert-button "New File" 'action (lambda (_button) (call-interactively 'find-file)) 'follow-link t) (insert "\t\t\t") |