* lisp/ielm.el (ielm-menu): New menu.

(inferior-emacs-lisp-mode): Set comment-start.

2 files changed, 21 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e067b0242ec..e9484600cde 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,10 +1,15 @@
 2013-05-23  Rüdiger Sonderfeld  <ruediger@c-plusplus.de>
 
-        * lisp/textmodes/reftex.el (reftex-ref-style-toggle): Fix
-        deactivate action.
+        * ielm.el (ielm-menu): New menu.
+        (inferior-emacs-lisp-mode): Set comment-start.
 
-        * lisp/textmodes/reftex-vars.el (reftex-ref-style-alist): Add
-        cleveref macros.
+2013-05-23  Rüdiger Sonderfeld  <ruediger@c-plusplus.de>
+
+        * lisp/textmodes/reftex.el (reftex-ref-style-toggle):
+        Fix deactivate action.
+
+        * lisp/textmodes/reftex-vars.el (reftex-ref-style-alist):
+        Add cleveref macros.
 
         * lisp/textmodes/reftex-parse.el
         (reftex-locate-bibliography-files): Accept options for
@@ -309,8 +314,8 @@
 
 2013-05-17  Leo Liu  <sdl.web@gmail.com>
 
-        * emacs-lisp/smie.el (smie-highlight-matching-block-mode): Clean
-        up when turned off.  (Bug#14395)
+        * emacs-lisp/smie.el (smie-highlight-matching-block-mode):
+        Clean up when turned off.  (Bug#14395)
         (smie--highlight-matching-block-overlay): No longer buffer-local.
         (smie-highlight-matching-block): Adjust.
 
diff --git a/lisp/ielm.el b/lisp/ielm.el
index d90800873a2..610cc3ea364 100644
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -184,6 +184,13 @@ This variable is buffer-local.")
   "Keymap for IELM mode.")
 (defvaralias 'inferior-emacs-lisp-mode-map 'ielm-map)
 
+(easy-menu-define ielm-menu ielm-map
+  "IELM mode menu."
+  '("IELM"
+    ["Change Working Buffer" ielm-change-working-buffer t]
+    ["Display Working Buffer" ielm-display-working-buffer t]
+    ["Print Working Buffer" ielm-print-working-buffer t]))
+
 (defvar ielm-font-lock-keywords
   '(("\\(^\\*\\*\\*[^*]+\\*\\*\\*\\)\\(.*$\\)"
      (1 font-lock-comment-face)
@@ -499,6 +506,9 @@ Customized bindings may be defined in `ielm-map', which currently contains:
   (setq comint-get-old-input 'ielm-get-old-input)
   (set (make-local-variable 'comint-completion-addsuffix) '("/" . ""))
   (setq mode-line-process '(":%s on " (:eval (buffer-name ielm-working-buffer))))
+  ;; Useful for `hs-minor-mode'.
+  (setq-local comment-start ";")
+  (setq-local comment-use-global-state t)
 
   (set (make-local-variable 'indent-line-function) 'ielm-indent-line)
   (set (make-local-variable 'ielm-working-buffer) (current-buffer))