procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert "Simplify "Visit New File" to "New File""

Browse source 
This reverts commit d457fd9dc7.
This commit is contained in:
Phillip Lord 2016-03-13 18:33:10 +00:00
parent d457fd9dc7
commit ba24c99ec6
3 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
doc/emacs/files.texi
View file

@ -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 On text-mode terminals and on graphical displays when Emacs was
built without a GUI toolkit, you can visit files via the menu-bar built without a GUI toolkit, you can visit files via the menu-bar
@samp{File} menu, which has a @samp{New File} item. @samp{File} menu, which has a @samp{Visit New File} item.
Each time you visit a file, Emacs automatically scans its contents Each time you visit a file, Emacs automatically scans its contents
to detect what character encoding and end-of-line convention it uses, to detect what character encoding and end-of-line convention it uses,

2
lisp/menu-bar.el
View file

@ -192,7 +192,7 @@
:enable (menu-bar-non-minibuffer-window-p) :enable (menu-bar-non-minibuffer-window-p)
:help "Read an existing file into an Emacs buffer")) :help "Read an existing file into an Emacs buffer"))
(bindings--define-key menu [new-file] (bindings--define-key menu [new-file]
'(menu-item "New File..." find-file '(menu-item "Visit New File..." find-file
:enable (menu-bar-non-minibuffer-window-p) :enable (menu-bar-non-minibuffer-window-p)
:help "Specify a new file's name, to edit the file")) :help "Specify a new file's name, to edit the file"))

4
lisp/startup.el
View file

@ -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 " How to order printed manuals from the FSF\n")
(insert "\nUseful tasks:\n") (insert "\nUseful tasks:\n")
(insert-button "New File" (insert-button "Visit New File"
'action (lambda (_button) (call-interactively 'find-file)) 'action (lambda (_button) (call-interactively 'find-file))
'follow-link t) 'follow-link t)
(insert (substitute-command-keys (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 links to useful tasks
(insert "\nUseful tasks:\n") (insert "\nUseful tasks:\n")
(insert-button "New File" (insert-button "Visit New File"
'action (lambda (_button) (call-interactively 'find-file)) 'action (lambda (_button) (call-interactively 'find-file))
'follow-link t) 'follow-link t)
(insert "\t\t\t") (insert "\t\t\t")