Mercurial > hg > xemacs-beta

comparison lisp/edebug/eval-reg.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents b82b59fe008d
children b9518feda344
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
3 ;; Copyright (C) 1994 Daniel LaLiberte 3 ;; Copyright (C) 1994 Daniel LaLiberte
4 4
5 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> 5 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
6 ;; Keywords: lisp 6 ;; Keywords: lisp
7 7
8 ;; This file is part of XEmacs. 8 ;; This file is part of GNU Emacs.
9 9
10 ;; XEmacs is free software; you can redistribute it and/or modify it 10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; 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
12 ;; the Free Software Foundation; either version 2, or (at your option) 12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version. 13 ;; any later version.
14 14
15 ;; XEmacs is distributed in the hope that it will be useful, but 15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; General Public License for more details. 18 ;; GNU General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free 21 ;; along with GNU Emacs; see the file COPYING. If not, write to
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
23 ;; 02111-1307, USA. 23
24 24 ;;;; Commentary:
25 ;;; Synched up with: Not in FSF 25
26 26 ;;; eval-region, eval-buffer, and eval-current-buffer are redefined in
27 ;;; Commentary: 27 ;;; Lisp to allow customizations by Lisp code. eval-region calls
28 28 ;;; `read', `eval', and `prin1', so Lisp replacements of these
29 ;; eval-region, eval-buffer, and eval-current-buffer are redefined in 29 ;;; functions will affect eval-region and anything else that calls it.
30 ;; Lisp to allow customizations by Lisp code. eval-region calls 30 ;;; eval-buffer and eval-current-buffer are redefined in Lisp to call
31 ;; `read', `eval', and `prin1', so Lisp replacements of these 31 ;;; eval-region on the buffer.
32 ;; functions will affect eval-region and anything else that calls it. 32
33 ;; eval-buffer and eval-current-buffer are redefined in Lisp to call 33 ;;; Because of dynamic binding, all local variables are protected from
34 ;; eval-region on the buffer. 34 ;;; being seen by eval by giving them funky names. But variables in
35 35 ;;; routines that call eval-region are similarly exposed.
36 ;; Because of dynamic binding, all local variables are protected from 36
37 ;; being seen by eval by giving them funky names. But variables in 37 ;;; Perhaps this should be one of several files in an `elisp' package
38 ;; routines that call eval-region are similarly exposed. 38 ;;; that replaces Emacs Lisp subroutines with Lisp versions of the
39 39 ;;; same.
40 ;; Perhaps this should be one of several files in an `elisp' package 40
41 ;; that replaces Emacs Lisp subroutines with Lisp versions of the 41 ;;; Eval-region may be installed, after loading, by calling:
42 ;; same. 42 ;;; (elisp-eval-region-install). Installation can be undone with:
43 43 ;;; (elisp-eval-region-uninstall).
44 ;; Eval-region may be installed, after loading, by calling:
45 ;; (elisp-eval-region-install). Installation can be undone with:
46 ;; (elisp-eval-region-uninstall).
47
48 ;;; Code:
49 44
50 '(defpackage "elisp-eval-region" 45 '(defpackage "elisp-eval-region"
51 (:nicknames "elisp") 46 (:nicknames "elisp")
52 (:use "elisp") 47 (:use "elisp")
53 (:export 48 (:export
213 (save-excursion 208 (save-excursion
214 (set-buffer (or (get-buffer elisp-bufname) 209 (set-buffer (or (get-buffer elisp-bufname)
215 (error "No such buffer: %s" elisp-bufname))) 210 (error "No such buffer: %s" elisp-bufname)))
216 (eval-region (point-min) (point-max) elisp-printflag))) 211 (eval-region (point-min) (point-max) elisp-printflag)))
217 212
213
218 (provide 'eval-reg) 214 (provide 'eval-reg)
219 215
220 ;;; eval-reg.el ends here 216 ;;; eval-reg.el ends here