Mercurial > emacs

comparison lisp/emacs-lisp/edebug.el @ 16550:158dd5ed6ae8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(combine-after-change-calls): New def-edebug-spec.
author Richard M. Stallman <rms@gnu.org>
date Sat, 09 Nov 1996 21:48:07 +0000
parents b3b88a1ee6aa
children b91256aecd79
comparison
equal deleted inserted replaced
16549:30ddd0e52ace 16550:158dd5ed6ae8
6 ;; Keywords: lisp, tools, maint 6 ;; Keywords: lisp, tools, maint
7 7
8 ;; LCD Archive Entry: 8 ;; LCD Archive Entry:
9 ;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu 9 ;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu
10 ;; |A source level debugger for Emacs Lisp. 10 ;; |A source level debugger for Emacs Lisp.
11 ;; |$Date: 1996/09/24 06:54:18 $|$Revision: 3.10 $|~/modes/edebug.el| 11 ;; |$Date: 1996/10/02 21:41:56 $|$Revision: 3.11 $|~/modes/edebug.el|
12 12
13 ;; This file is part of GNU Emacs. 13 ;; This file is part of GNU Emacs.
14 14
15 ;; GNU Emacs is free software; you can redistribute it and/or modify 15 ;; GNU Emacs is free software; you can redistribute it and/or modify
16 ;; it under the terms of the GNU General Public License as published by 16 ;; it under the terms of the GNU General Public License as published by
83 ;; For the early revision history, see edebug-history. 83 ;; For the early revision history, see edebug-history.
84 84
85 ;;; Code: 85 ;;; Code:
86 86
87 (defconst edebug-version 87 (defconst edebug-version
88 (let ((raw-version "$Revision: 3.10 $")) 88 (let ((raw-version "$Revision: 3.11 $"))
89 (substring raw-version (string-match "[0-9.]*" raw-version) 89 (substring raw-version (string-match "[0-9.]*" raw-version)
90 (match-end 0)))) 90 (match-end 0))))
91 91
92 (require 'backquote) 92 (require 'backquote)
93 93
2121 (def-edebug-spec save-selected-window t) 2121 (def-edebug-spec save-selected-window t)
2122 (def-edebug-spec save-current-buffer t) 2122 (def-edebug-spec save-current-buffer t)
2123 (def-edebug-spec save-match-data t) 2123 (def-edebug-spec save-match-data t)
2124 (def-edebug-spec with-output-to-string t) 2124 (def-edebug-spec with-output-to-string t)
2125 (def-edebug-spec with-current-buffer t) 2125 (def-edebug-spec with-current-buffer t)
2126 (def-edebug-spec combine-after-change-calls t)
2126 (def-edebug-spec with-temp-file t) 2127 (def-edebug-spec with-temp-file t)
2127 (def-edebug-spec with-temp-buffer t) 2128 (def-edebug-spec with-temp-buffer t)
2128 2129
2129 ;; Anything else? 2130 ;; Anything else?
2130 2131