mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-08 20:58:58 +00:00
Code Issues Releases Activity

(ask-user-about-lock): Abbreviate file name and locking user's name.

Browse Source
This commit is contained in:
Richard M. Stallman 1997-09-02 17:12:46 +00:00
parent 50b190e470
commit bdca5405d6
1 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lisp/userlock.el
View File

@ -32,21 +32,35 @@
;;; Code: ;;; Code:
(put 'file-locked 'error-conditions '(file-locked file-error error)) (put 'file-locked 'error-conditions '(file-locked file-error error))
(put 'file-locked 'error-message "File is locked")
;;;###autoload ;;;###autoload
(defun ask-user-about-lock (fn opponent) (defun ask-user-about-lock (file opponent)
"Ask user what to do when he wants to edit FILE but it is locked by USER. "Ask user what to do when he wants to edit FILE but it is locked by OPPONENT.
This function has a choice of three things to do: This function has a choice of three things to do:
do (signal 'buffer-file-locked (list FILE USER)) do (signal 'buffer-file-locked (list FILE OPPONENT))
to refrain from editing the file to refrain from editing the file
return t (grab the lock on the file) return t (grab the lock on the file)
return nil (edit the file even though it is locked). return nil (edit the file even though it is locked).
You can rewrite it to use any criterion you like to choose which one to do." You can redefine this function to choose among those three alternatives
in any way you like."
(discard-input) (discard-input)
(save-window-excursion (save-window-excursion
(let (answer) (let (answer short-opponent short-file)
(setq short-file
(if (> (length file) 22)
(concat "..." (substring file (- (length file) 22)))
file))
(setq short-opponent
(if (> (length opponent) 25)
(save-match-data
(string-match " (pid [0-9]+)" opponent)
(concat (substring opponent 0 13) "..."
(match-string 0 opponent)))
opponent))
(while (null answer) (while (null answer)
(message "%s is locking %s: action (s, q, p, ?)? " opponent fn) (message "%s locked by %s: (s, q, p, ?)? "
short-file short-opponent)
(let ((tem (let ((inhibit-quit t) (let ((tem (let ((inhibit-quit t)
(cursor-in-echo-area t)) (cursor-in-echo-area t))
(prog1 (downcase (read-char)) (prog1 (downcase (read-char))
@ -66,7 +80,7 @@ You can rewrite it to use any criterion you like to choose which one to do."
(ask-user-about-lock-help) (ask-user-about-lock-help)
(setq answer nil)) (setq answer nil))
((eq (cdr answer) 'yield) ((eq (cdr answer) 'yield)
(signal 'file-locked (list "File is locked" fn opponent))))))) (signal 'file-locked (list file opponent)))))))
(cdr answer)))) (cdr answer))))
(defun ask-user-about-lock-help () (defun ask-user-about-lock-help ()