[Emacs-diffs] /srv/bzr/emacs/trunk r112691: * lisp/ielm.el (ielm-menu): New menu.

[Stefan Monnier]

------------------------------------------------------------
revno: 112691
author: Rüdiger Sonderfeld <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2013-05-23 11:27:48 -0400
message:
  * lisp/ielm.el (ielm-menu): New menu.
  (inferior-emacs-lisp-mode): Set comment-start.
modified:
  lisp/ChangeLog
  lisp/ielm.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-23 15:26:20 +0000
+++ b/lisp/ChangeLog    2013-05-23 15:27:48 +0000
@@ -1,10 +1,15 @@
 2013-05-23  Rüdiger Sonderfeld  <address@hidden>
 
-       * lisp/textmodes/reftex.el (reftex-ref-style-toggle): Fix
-       deactivate action.
-
-       * lisp/textmodes/reftex-vars.el (reftex-ref-style-alist): Add
-       cleveref macros.
+       * ielm.el (ielm-menu): New menu.
+       (inferior-emacs-lisp-mode): Set comment-start.
+
+2013-05-23  Rüdiger Sonderfeld  <address@hidden>
+
+       * 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  <address@hidden>
 
-       * 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.
 

=== modified file 'lisp/ielm.el'
--- a/lisp/ielm.el      2013-01-01 09:11:05 +0000
+++ b/lisp/ielm.el      2013-05-23 15:27:48 +0000
@@ -184,6 +184,13 @@
   "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 @@
   (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))