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".

2 files changed, 3 insertions, 3 deletions

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")