aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lock.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lock.el b/lisp/emacs-lock.el
index 729a0d0439a..a133d1b8519 100644
--- a/lisp/emacs-lock.el
+++ b/lisp/emacs-lock.el
@@ -74,7 +74,7 @@ If t is found, signal error and display the locked buffer name."
74 (error "Buffer `%s' is locked, can't delete it" (buffer-name)))) 74 (error "Buffer `%s' is locked, can't delete it" (buffer-name))))
75 75
76; These next defuns make it so if you exit a shell that is locked, the lock 76; These next defuns make it so if you exit a shell that is locked, the lock
77; is shut off for that shell so you can exit emacs. same for telnet. 77; is shut off for that shell so you can exit emacs. Same for telnet.
78; Also, if a shell or a telnet buffer was locked and the process killed, 78; Also, if a shell or a telnet buffer was locked and the process killed,
79; turn the lock back on again if the process is restarted. 79; turn the lock back on again if the process is restarted.
80 80
@@ -85,7 +85,7 @@ If t is found, signal error and display the locked buffer name."
85(defun emacs-lock-clear-sentinel (proc str) 85(defun emacs-lock-clear-sentinel (proc str)
86 (if emacs-lock-from-exiting 86 (if emacs-lock-from-exiting
87 (progn 87 (progn
88 (setq emacs-lock-from-exiting nil) 88 (setq emacs-lock-from-exiting nil)
89 (setq emacs-lock-buffer-locked t) 89 (setq emacs-lock-buffer-locked t)
90 (message "Buffer is now unlocked")) 90 (message "Buffer is now unlocked"))
91 (setq emacs-lock-buffer-locked nil))) 91 (setq emacs-lock-buffer-locked nil)))