HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* lisp/image-mode.el (image-mode-winprops): Add winprops to
[bpt/emacs.git]
/
lisp
/
ielm.el
diff --git
a/lisp/ielm.el
b/lisp/ielm.el
index
3322e7e
..
610cc3e
100644
(file)
--- a/
lisp/ielm.el
+++ b/
lisp/ielm.el
@@
-1,6
+1,6
@@
;;; ielm.el --- interaction mode for Emacs Lisp
;;; ielm.el --- interaction mode for Emacs Lisp
-;; Copyright (C) 1994, 2001-201
1
Free Software Foundation, Inc.
+;; Copyright (C) 1994, 2001-201
3
Free Software Foundation, Inc.
;; Author: David Smith <maa036@lancaster.ac.uk>
;; Maintainer: FSF
;; Author: David Smith <maa036@lancaster.ac.uk>
;; Maintainer: FSF
@@
-59,7
+59,7
@@
override the read-only-ness of IELM prompts is to call
`comint-kill-whole-line' or `comint-kill-region' with no
narrowing in effect. This way you will be certain that none of
the remaining prompts will be accidentally messed up. You may
`comint-kill-whole-line' or `comint-kill-region' with no
narrowing in effect. This way you will be certain that none of
the remaining prompts will be accidentally messed up. You may
-wish to put something like the following in your
`.emacs'
file:
+wish to put something like the following in your
init
file:
\(add-hook 'ielm-mode-hook
(lambda ()
\(add-hook 'ielm-mode-hook
(lambda ()
@@
-184,6
+184,13
@@
This variable is buffer-local.")
"Keymap for IELM mode.")
(defvaralias 'inferior-emacs-lisp-mode-map 'ielm-map)
"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)
(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))))
(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))
(set (make-local-variable 'indent-line-function) 'ielm-indent-line)
(set (make-local-variable 'ielm-working-buffer) (current-buffer))
@@
-563,7
+573,7
@@
Switches to the buffer `*ielm*', or creates it if it does not exist."
(with-current-buffer (get-buffer-create "*ielm*")
(unless (zerop (buffer-size)) (setq old-point (point)))
(inferior-emacs-lisp-mode)))
(with-current-buffer (get-buffer-create "*ielm*")
(unless (zerop (buffer-size)) (setq old-point (point)))
(inferior-emacs-lisp-mode)))
- (
pop
-to-buffer "*ielm*")
+ (
switch
-to-buffer "*ielm*")
(when old-point (push-mark old-point))))
(provide 'ielm)
(when old-point (push-mark old-point))))
(provide 'ielm)