(goto-address-mail-regexp): Allow = in username.

[gnu-emacs] / lisp / userlock.el

diff --git a/lisp/userlock.el b/lisp/userlock.el
index 3b3d1fbd728ff279551f4f56eb51b7ddf95c8694..e6e5ef0a1b510d00f354a3a9ec6c080917655532 100644 (file)
--- a/lisp/userlock.el
+++ b/lisp/userlock.el
@@ -115,7 +115,7 @@ The buffer in question is current when this function is called."
        (message "%s changed on disk; really edit the buffer? (y, n, r or C-h) "
                 (file-name-nondirectory fn))
        (let ((tem (downcase (let ((cursor-in-echo-area t))
-                              (read-char)))))
+                              (read-char-exclusive)))))
          (setq answer
                (if (= tem help-char)
                    'help
@@ -160,4 +160,5 @@ to get the latest version of the file, then make the change again.")
       (set-buffer standard-output)
       (help-mode))))
 
+;;; arch-tag: a61c5b60-e1c8-44fd-894a-c617f4dfc639
 ;;; userlock.el ends here