diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-10-07 11:15:16 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-10-07 11:15:16 -0400 |
| commit | 13af0d109fc8d2595c0f9f103993e27690f616a3 (patch) | |
| tree | 89cf682d22a89a28f7a930f45c73e8ee28259955 /lisp/comint.el | |
| parent | 17917e7468f85af6691ed2de56650cede65b749a (diff) | |
| download | emacs-13af0d109fc8d2595c0f9f103993e27690f616a3.tar.gz emacs-13af0d109fc8d2595c0f9f103993e27690f616a3.tar.bz2 emacs-13af0d109fc8d2595c0f9f103993e27690f616a3.zip | |
* lisp/emacs-lisp/autoload.el (make-autoload): Add `cl-defmacro' to the
forms that define macros.
Fixes: debbugs:12593
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index fea9cecfa03..080b12e0cdf 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -2783,11 +2783,8 @@ the load or compile." (if (and buff (buffer-modified-p buff) (y-or-n-p (format "Save buffer %s first? " (buffer-name buff)))) - ;; save BUFF. - (let ((old-buffer (current-buffer))) - (set-buffer buff) - (save-buffer) - (set-buffer old-buffer))))) + (with-current-buffer buff + (save-buffer))))) (defun comint-extract-string () "Return string around point, or nil." |