Mercurial > emacs

comparison lisp/emacs-lisp/debug.el @ 21161:37f271ee9f6f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(debug, debugger-env-macro): store-match-data => set-match-data.
author Richard M. Stallman <rms@gnu.org>
date Sat, 14 Mar 1998 04:49:03 +0000
parents 9bd868e76aa5
children db005054f15d
comparison
equal deleted inserted replaced
21160:99cb527e79ba 21161:37f271ee9f6f
188 (save-excursion 188 (save-excursion
189 (set-buffer debugger-buffer) 189 (set-buffer debugger-buffer)
190 (erase-buffer) 190 (erase-buffer)
191 (fundamental-mode)) 191 (fundamental-mode))
192 (kill-buffer debugger-buffer)) 192 (kill-buffer debugger-buffer))
193 (store-match-data debugger-outer-match-data))) 193 (set-match-data debugger-outer-match-data)))
194 ;; Put into effect the modified values of these variables 194 ;; Put into effect the modified values of these variables
195 ;; in case the user set them with the `e' command. 195 ;; in case the user set them with the `e' command.
196 (setq load-read-function debugger-outer-load-read-function) 196 (setq load-read-function debugger-outer-load-read-function)
197 (setq overriding-local-map debugger-outer-overriding-local-map) 197 (setq overriding-local-map debugger-outer-overriding-local-map)
198 (setq overriding-terminal-local-map 198 (setq overriding-terminal-local-map
345 (cursor-in-echo-area debugger-outer-cursor-in-echo-area) 345 (cursor-in-echo-area debugger-outer-cursor-in-echo-area)
346 (overriding-local-map debugger-outer-overriding-local-map) 346 (overriding-local-map debugger-outer-overriding-local-map)
347 (overriding-terminal-local-map 347 (overriding-terminal-local-map
348 debugger-outer-overriding-terminal-local-map) 348 debugger-outer-overriding-terminal-local-map)
349 (load-read-function debugger-outer-load-read-function)) 349 (load-read-function debugger-outer-load-read-function))
350 (store-match-data debugger-outer-match-data) 350 (set-match-data debugger-outer-match-data)
351 (prog1 (progn (,@ body)) 351 (prog1 (progn (,@ body))
352 (setq debugger-outer-match-data (match-data)) 352 (setq debugger-outer-match-data (match-data))
353 (setq debugger-outer-load-read-function load-read-function) 353 (setq debugger-outer-load-read-function load-read-function)
354 (setq debugger-outer-overriding-terminal-local-map 354 (setq debugger-outer-overriding-terminal-local-map
355 overriding-terminal-local-map) 355 overriding-terminal-local-map)