Mercurial > emacs

comparison lisp/emacs-lisp/eval-reg.el @ 6781:1196b59772d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
comment changes.
author Daniel LaLiberte <liberte@gnu.org>
date Sat, 09 Apr 1994 22:27:46 +0000
parents 8d1e282a457e
children 13fc66bc7472
comparison
equal deleted inserted replaced
6780:06eb068ba329 6781:1196b59772d3
1 ;;; eval-region.el --- Redefine eval-region, and subrs that use it, in Lisp 1 ;;; eval-region.el --- Redefine eval-region, and subrs that use it, in Lisp
2
2 ;; Copyright (C) 1994 Daniel LaLiberte 3 ;; Copyright (C) 1994 Daniel LaLiberte
4
5 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
6 ;; Keywords: lisp
3 7
4 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
5 9
6 ;; GNU Emacs is free software; you can redistribute it and/or modify 10 ;; GNU Emacs is free software; you can redistribute it and/or modify
7 ;; it under the terms of the GNU General Public License as published by 11 ;; it under the terms of the GNU General Public License as published by
31 ;;; routines that call eval-region are similarly exposed. 35 ;;; routines that call eval-region are similarly exposed.
32 36
33 ;;; Perhaps this should be one of several files in an `elisp' package 37 ;;; Perhaps this should be one of several files in an `elisp' package
34 ;;; that replaces Emacs Lisp subroutines with Lisp versions of the 38 ;;; that replaces Emacs Lisp subroutines with Lisp versions of the
35 ;;; same. 39 ;;; same.
36
37 ;;;; Installation
38 ;;; =============
39 40
40 ;;; Eval-region may be installed, after loading, by calling: 41 ;;; Eval-region may be installed, after loading, by calling:
41 ;;; (elisp-eval-region-install). Installation can be undone with: 42 ;;; (elisp-eval-region-install). Installation can be undone with:
42 ;;; (elisp-eval-region-uninstall). 43 ;;; (elisp-eval-region-uninstall).
43 44
47 (:export 48 (:export
48 elisp-eval-region-install 49 elisp-eval-region-install
49 elisp-eval-region-uninstall 50 elisp-eval-region-uninstall
50 elisp-eval-region-level 51 elisp-eval-region-level
51 with-elisp-eval-region 52 with-elisp-eval-region
53 eval-region
54 eval-buffer
55 eval-current-buffer
52 )) 56 ))
53 '(in-package elisp-eval-region) 57 '(in-package elisp-eval-region)
54 58
55 ;; Save standard versions. 59 ;; Save standard versions.
56 (if (not (fboundp 'original-eval-region)) 60 (if (not (fboundp 'original-eval-region))
206 (error "No such buffer: %s" elisp-bufname))) 210 (error "No such buffer: %s" elisp-bufname)))
207 (eval-region (point-min) (point-max) elisp-printflag))) 211 (eval-region (point-min) (point-max) elisp-printflag)))
208 212
209 213
210 (provide 'elisp-eval-region) 214 (provide 'elisp-eval-region)
215