diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-04-22 20:44:26 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-04-22 20:44:26 +0200 |
| commit | e02f48d76bfd57f014ffbe3ba56b62f2d5ccc794 (patch) | |
| tree | d27a2d9fd6838d6e619c824deb12a568ceac54f6 /lisp/progmodes/xscheme.el | |
| parent | 7ede3b6577ae99a3e7ac45baa7cace439bf5070c (diff) | |
| download | emacs-e02f48d76bfd57f014ffbe3ba56b62f2d5ccc794.tar.gz | |
lisp/progmodes/*.el: Lexical-binding cleanup.
Diffstat (limited to 'lisp/progmodes/xscheme.el')
| -rw-r--r-- | lisp/progmodes/xscheme.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/progmodes/xscheme.el b/lisp/progmodes/xscheme.el index cd50174f8cd..dfa91b3fe30 100644 --- a/lisp/progmodes/xscheme.el +++ b/lisp/progmodes/xscheme.el @@ -511,7 +511,7 @@ Commands: (interactive) (xscheme-send-char last-command-event)) -(defun xscheme-enter-debugger-mode (prompt-string) +(defun xscheme-enter-debugger-mode (_prompt-string) (with-current-buffer (xscheme-process-buffer) (if (not (derived-mode-p 'scheme-debugger-mode)) (progn @@ -1024,8 +1024,7 @@ the remaining input.") (xscheme-goto-output-point) (let ((old-point (point))) (while (string-match "\\(\007\\|\f\\)" string) - (let ((start (match-beginning 0)) - (end (match-end 0))) + (let ((start (match-beginning 0))) (insert-before-markers (substring string 0 start)) (if (= ?\f (aref string start)) (progn |