(menu-bar-help-menu): Add menu item for non-English

tutorials.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b01fc847653b19c55e57fddd9df5e065f3c2484f..34eaeb39fe0e60b52eb183ae69e3ae22f644addf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -11,6 +11,15 @@
 
 2000-06-15  Gerd Moellmann  <gerd@gnu.org>
 
+       * info.el (Info-find-in-tag-table-1, Info-find-in-tag-table) 
+       (Info-find-node-in-buffer-1, Info-find-node-in-buffer): New
+       functions. 
+       (Info-find-node-2): Try a case-sensitive search first, then
+       do a case-insensitive search.
+
+       * menu-bar.el (menu-bar-help-menu): Add menu item for non-English
+       tutorials.
+
        * complete.el (PC-env-vars-alist): New variable.
        (PC-complete-as-file-name): New function.
        (partial-completion-mode): Initialize PC-env-vars-alist from

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 429da3c766ccd481914c160bff8342640373fe08..d1ff2a21db3f505879281d214e0d6377ff8a60b4 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -833,6 +833,10 @@ key (or menu-item)"))
              :help "New features of this version"))
 (define-key menu-bar-help-menu [emacs-faq]
   '(menu-item "Emacs FAQ" view-emacs-FAQ))
+(define-key menu-bar-help-menu [emacs-tutorial-language-specific]
+  '(menu-item "Emacs Tutorial (choose language)..."
+             (lambda () (interactive) (help-with-tutorial t))
+             :help "Learn how to use Emacs (choose a language)"))
 (define-key menu-bar-help-menu [emacs-tutorial]
   '(menu-item "Emacs Tutorial" help-with-tutorial
              :help "Learn how to use Emacs"))