Mercurial > emacs
comparison lisp/emacs-lisp/debug.el @ 20885:9bd868e76aa5
(debugger-mode): Don't set enable-multibyte-characters here.
(debug): Use set-buffer-multibyte to clear enable-multibyte-characters.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 11 Feb 1998 07:11:50 +0000 |
| parents | 7cce7f974c78 |
| children | 37f271ee9f6f |
comparison
equal
deleted
inserted
replaced
| 20884:91f9c828fc1a | 20885:9bd868e76aa5 |
|---|---|
| 120 (unwind-protect | 120 (unwind-protect |
| 121 (save-excursion | 121 (save-excursion |
| 122 (save-window-excursion | 122 (save-window-excursion |
| 123 (pop-to-buffer debugger-buffer) | 123 (pop-to-buffer debugger-buffer) |
| 124 (erase-buffer) | 124 (erase-buffer) |
| 125 (set-buffer-multibyte nil) | |
| 125 (let ((standard-output (current-buffer)) | 126 (let ((standard-output (current-buffer)) |
| 126 (print-escape-newlines t) | 127 (print-escape-newlines t) |
| 127 (print-length 50)) | 128 (print-length 50)) |
| 128 (backtrace)) | 129 (backtrace)) |
| 129 (goto-char (point-min)) | 130 (goto-char (point-min)) |
| 440 (kill-all-local-variables) | 441 (kill-all-local-variables) |
| 441 (setq major-mode 'debugger-mode) | 442 (setq major-mode 'debugger-mode) |
| 442 (setq mode-name "Debugger") | 443 (setq mode-name "Debugger") |
| 443 (setq truncate-lines t) | 444 (setq truncate-lines t) |
| 444 (set-syntax-table emacs-lisp-mode-syntax-table) | 445 (set-syntax-table emacs-lisp-mode-syntax-table) |
| 445 ;; Since we must handle bytecode... | |
| 446 (setq enable-multibyte-characters nil) | |
| 447 (use-local-map debugger-mode-map) | 446 (use-local-map debugger-mode-map) |
| 448 (run-hooks 'debugger-mode-hook)) | 447 (run-hooks 'debugger-mode-hook)) |
| 449 | 448 |
| 450 ;;;###autoload | 449 ;;;###autoload |
| 451 (defun debug-on-entry (function) | 450 (defun debug-on-entry (function) |