HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Replace "Maintainer: FSF" with the emacs-devel mailing address
[bpt/emacs.git]
/
lisp
/
emacs-lock.el
diff --git
a/lisp/emacs-lock.el
b/lisp/emacs-lock.el
index
ac12c14
..
0432fc2
100644
(file)
--- a/
lisp/emacs-lock.el
+++ b/
lisp/emacs-lock.el
@@
-1,10
+1,10
@@
;;; emacs-lock.el --- protect buffers against killing or exiting -*- lexical-binding: t -*-
;;; emacs-lock.el --- protect buffers against killing or exiting -*- lexical-binding: t -*-
-;; Copyright (C) 2011-201
3
Free Software Foundation, Inc.
+;; Copyright (C) 2011-201
4
Free Software Foundation, Inc.
;; Author: Juanma Barranquero <lekktu@gmail.com>
;; Inspired by emacs-lock.el by Tom Wurgler <twurgler@goodyear.com>
;; Author: Juanma Barranquero <lekktu@gmail.com>
;; Inspired by emacs-lock.el by Tom Wurgler <twurgler@goodyear.com>
-;; Maintainer:
FSF
+;; Maintainer:
emacs-devel@gnu.org
;; Keywords: extensions, processes
;; This file is part of GNU Emacs.
;; Keywords: extensions, processes
;; This file is part of GNU Emacs.
@@
-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."
(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.
(defun emacs-lock--can-auto-unlock (action)
"Return t if the current buffer can auto-unlock for ACTION.