diff options
| author | Leo Liu <sdl.web@gmail.com> | 2013-12-02 15:13:01 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2013-12-02 15:13:01 +0800 |
| commit | 0518b057fe4e50664cb84bfb6d8ef24d81c94431 (patch) | |
| tree | 11059affb87e0cc8431456f202ae656b45eacf75 /lisp/emacs-lock.el | |
| parent | 3adc9c6dca2c52aa41165f112a4e875267c6315e (diff) | |
| download | emacs-0518b057fe4e50664cb84bfb6d8ef24d81c94431.tar.gz | |
* subr.el (process-live-p): Return nil for non-process.
* progmodes/sh-script.el (sh-shell-process):
* progmodes/octave.el (inferior-octave-process-live-p):
* progmodes/gdb-mi.el (gdb-delchar-or-quit)
(gdb-inferior-io-sentinel):
* emacs-lock.el (emacs-lock-live-process-p): All uses changed.
Fixes: debbugs:16023
Diffstat (limited to 'lisp/emacs-lock.el')
| -rw-r--r-- | lisp/emacs-lock.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lock.el b/lisp/emacs-lock.el index ac12c149b01..f1fa9316c82 100644 --- a/lisp/emacs-lock.el +++ b/lisp/emacs-lock.el @@ -109,8 +109,7 @@ Internal use only.") (defun emacs-lock-live-process-p (buffer-or-name) "Return t if BUFFER-OR-NAME is associated with a live process." - (let ((proc (get-buffer-process buffer-or-name))) - (and proc (process-live-p proc)))) + (process-live-p (get-buffer-process buffer-or-name))) (defun emacs-lock--can-auto-unlock (action) "Return t if the current buffer can auto-unlock for ACTION. |