XEmacs 21.2.34 "Molpe".

[chise/xemacs-chise.git.1] / lisp / menubar-items.el

diff --git a/lisp/menubar-items.el b/lisp/menubar-items.el
index eda0c93..c61764c 100644 (file)
--- a/lisp/menubar-items.el
+++ b/lisp/menubar-items.el
@@ -1374,7 +1374,8 @@ which will not be used as accelerators."
        ;; #### there should be something that holds the name that the init
        ;; file should be created as, when it's not present.
        (progn (find-file (or user-init-file "~/.emacs"))
-             (emacs-lisp-mode))]
+             (or (eq major-mode 'emacs-lisp-mode)
+                 (emacs-lisp-mode)))]
       ["%_Save Options to .emacs File" customize-save-customized]
       )
 
@@ -1866,13 +1867,13 @@ If this is a relative filename, it is put into the same directory as your
                                          current-language-environment))
                            `([,(car lang)
                               (help-with-tutorial nil ,(cdr tut))]))))
-                language-info-alist))
-     ;; Non mule tutorials.
-     (mapcar #'(lambda (lang)
-                `[,(car lang)
-                  (help-with-tutorial ,(format "TUTORIAL.%s"
-                                               (cadr lang)))])
-            tutorial-supported-languages))))
+                language-info-alist)
+       ;; Non mule tutorials.
+       (mapcar #'(lambda (lang)
+                  `[,(car lang)
+                    (help-with-tutorial ,(format "TUTORIAL.%s"
+                                                 (cadr lang)))])
+              tutorial-supported-languages)))))
 
 \f
 (set-menubar default-menubar)