Mercurial > emacs
comparison lisp/xscheme.el @ 49597:e88404e8f2cf
Trailing whitespace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 12:29:42 +0000 |
| parents | 036e57c15cdc |
| children |
comparison
equal
deleted
inserted
replaced
| 49596:b06535145619 | 49597:e88404e8f2cf |
|---|---|
| 213 (if (xscheme-process-buffer-current-p) | 213 (if (xscheme-process-buffer-current-p) |
| 214 (error "Cannot change the interaction buffer of an interaction buffer")) | 214 (error "Cannot change the interaction buffer of an interaction buffer")) |
| 215 (kill-local-variable 'xscheme-buffer-name) | 215 (kill-local-variable 'xscheme-buffer-name) |
| 216 (kill-local-variable 'xscheme-process-name) | 216 (kill-local-variable 'xscheme-process-name) |
| 217 (kill-local-variable 'xscheme-runlight)) | 217 (kill-local-variable 'xscheme-runlight)) |
| 218 | 218 |
| 219 (defun verify-xscheme-buffer (buffer-name localp) | 219 (defun verify-xscheme-buffer (buffer-name localp) |
| 220 (if (and localp (xscheme-process-buffer-current-p)) | 220 (if (and localp (xscheme-process-buffer-current-p)) |
| 221 (error "Cannot change the interaction buffer of an interaction buffer")) | 221 (error "Cannot change the interaction buffer of an interaction buffer")) |
| 222 (let* ((buffer (get-buffer buffer-name)) | 222 (let* ((buffer (get-buffer buffer-name)) |
| 223 (process (and buffer (get-buffer-process buffer)))) | 223 (process (and buffer (get-buffer-process buffer)))) |