summaryrefslogtreecommitdiff
path: root/lisp/userlock.el
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1994-11-09 05:45:49 +0000
committerKarl Heuer <kwzh@gnu.org>1994-11-09 05:45:49 +0000
commit1eb7d0f4b722664e10582c4ddde8970264e9a0d3 (patch)
tree30919382ff17803fcb76d15505dd4faa16b510d5 /lisp/userlock.el
parentd518d57603c2da142b0d626b92237228c9e051a1 (diff)
downloademacs-1eb7d0f4b722664e10582c4ddde8970264e9a0d3.tar.gz
(ask-user-about-lock-help, ask-user-about-supersession-help): Set help-mode in *Help* buffer.
Diffstat (limited to 'lisp/userlock.el')
-rw-r--r--lisp/userlock.el10
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/userlock.el b/lisp/userlock.el
index 316a1a4c892..ca4f216c0ac 100644
--- a/lisp/userlock.el
+++ b/lisp/userlock.el
@@ -76,7 +76,10 @@ already started modifying in EMACS.
You can <s>teal the file; The other user becomes the
intruder if (s)he ever unmodifies the file and then changes it again.
You can <p>roceed; you edit at your own (and the other user's) risk.
-You can <q>uit; don't modify this file.")))
+You can <q>uit; don't modify this file.")
+ (save-excursion
+ (set-buffer standard-output)
+ (help-mode))))
(put
'file-supersession 'error-conditions '(file-supersession file-error error))
@@ -129,6 +132,9 @@ you risk ruining the work of whoever rewrote the file.
If you say `n', the change you started to make will be aborted.
Usually, you should type `n' and then `M-x revert-buffer',
-to get the latest version of the file, then make the change again.")))
+to get the latest version of the file, then make the change again.")
+ (save-excursion
+ (set-buffer standard-output)
+ (help-mode))))
;;; userlock.el ends here