X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmenubar-items.el;h=c61764c5bd01c17333e61e3b22bd078be2f8f147;hb=2bc2bcf5c6d4173839a6e003751545ada380d283;hp=eda0c93e603ade173752f897bb111c9176e4d3b8;hpb=a1655b870904de973c366d85ebdc8adde4ef5e1e;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/menubar-items.el b/lisp/menubar-items.el
index eda0c93..c61764c 100644
--- 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)))))
 
 
 (set-menubar default-menubar)