mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 00:00:39 -08:00
Code Issues Projects Releases Wiki Activity

Change install- to ... to ...-install.

Browse source
This commit is contained in:
Daniel LaLiberte 1994-04-04 21:55:52 +00:00
parent 8866814720
commit ef2b0b8983
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/emacs-lisp/eval-reg.el
View file

@ -38,15 +38,15 @@
;;; ============= ;;; =============
;;; Eval-region may be installed, after loading, by calling: ;;; Eval-region may be installed, after loading, by calling:
;;; (install-eval-region). Installation can be undone with: ;;; (elisp-eval-region-install). Installation can be undone with:
;;; (uninstall-eval-region). ;;; (elisp-eval-region-uninstall).
'(defpackage "elisp-eval-region" '(defpackage "elisp-eval-region"
(:nicknames "elisp") (:nicknames "elisp")
(:use "elisp") (:use "elisp")
(:export (:export
install-elisp-eval-region elisp-eval-region-install
uninstall-elisp-eval-region elisp-eval-region-uninstall
elisp-eval-region-level elisp-eval-region-level
with-elisp-eval-region with-elisp-eval-region
)) ))
@ -70,16 +70,16 @@ Callers of elisp-eval-region should increment elisp-eval-region-level
while the Lisp version should be used. Installing elisp-eval-region while the Lisp version should be used. Installing elisp-eval-region
increments it once, and uninstalling decrements it.") increments it once, and uninstalling decrements it.")
;; These two should always be used in pairs, or just install once and ;; Installing and uninstalling should always be used in pairs,
;; never uninstall. ;; or just install once and never uninstall.
(defun install-elisp-eval-region () (defun elisp-eval-region-install ()
(interactive) (interactive)
(defalias 'eval-region 'elisp-eval-region) (defalias 'eval-region 'elisp-eval-region)
(defalias 'eval-buffer 'elisp-eval-buffer) (defalias 'eval-buffer 'elisp-eval-buffer)
(defalias 'eval-current-buffer 'elisp-eval-current-buffer) (defalias 'eval-current-buffer 'elisp-eval-current-buffer)
(setq elisp-eval-region-level (1+ elisp-eval-region-level))) (setq elisp-eval-region-level (1+ elisp-eval-region-level)))
(defun uninstall-elisp-eval-region () (defun elisp-eval-region-uninstall ()
(interactive) (interactive)
(if (> 1 elisp-eval-region-level) (if (> 1 elisp-eval-region-level)
(setq elisp-eval-region-level (1- elisp-eval-region-level)) (setq elisp-eval-region-level (1- elisp-eval-region-level))
@ -99,7 +99,7 @@ increments it once, and uninstalling decrements it.")
The effect of decrementing all the way to zero is that `eval-region' The effect of decrementing all the way to zero is that `eval-region'
will use the original eval-region, which may be the Emacs subr or some will use the original eval-region, which may be the Emacs subr or some
previous redefinition. Before calling this macro, this package should previous redefinition. Before calling this macro, this package should
already have been installed, using `install-elisp-eval-region', which already have been installed, using `elisp-eval-region-install', which
increments the count once. So if another package still requires the increments the count once. So if another package still requires the
elisp version of the code, the count will still be non-zero. elisp version of the code, the count will still be non-zero.