diff options
| author | Stefan Monnier | 2002-09-27 19:08:41 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-09-27 19:08:41 +0000 |
| commit | 9156807006bc584deb9723ccbc0fd98ff9a6b4fd (patch) | |
| tree | c03edf9a07a331fbc24c475bf5ecc8dea3a79bdb | |
| parent | 5b8b9fa77678cc56db02224a26e209b7c0e4d827 (diff) | |
| download | emacs-9156807006bc584deb9723ccbc0fd98ff9a6b4fd.tar.gz emacs-9156807006bc584deb9723ccbc0fd98ff9a6b4fd.zip | |
(ask-user-about-supersession-threat): Don't abort when the user hits mouse-2.
| -rw-r--r-- | lisp/userlock.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/userlock.el b/lisp/userlock.el index 3b3d1fbd728..752c3bc90c7 100644 --- a/lisp/userlock.el +++ b/lisp/userlock.el | |||
| @@ -115,7 +115,7 @@ The buffer in question is current when this function is called." | |||
| 115 | (message "%s changed on disk; really edit the buffer? (y, n, r or C-h) " | 115 | (message "%s changed on disk; really edit the buffer? (y, n, r or C-h) " |
| 116 | (file-name-nondirectory fn)) | 116 | (file-name-nondirectory fn)) |
| 117 | (let ((tem (downcase (let ((cursor-in-echo-area t)) | 117 | (let ((tem (downcase (let ((cursor-in-echo-area t)) |
| 118 | (read-char))))) | 118 | (read-char-exclusive))))) |
| 119 | (setq answer | 119 | (setq answer |
| 120 | (if (= tem help-char) | 120 | (if (= tem help-char) |
| 121 | 'help | 121 | 'help |