procyberian/emacs
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Don't move point on undefined keystrokes in the article buffer

Browse source 
* lisp/gnus/gnus-art.el (gnus-article-read-summary-keys): Don't
move point on undefined commands (bug#38227).
This commit is contained in:
Lars Ingebrigtsen 2019-11-16 06:11:56 +01:00
parent 461101d67c
commit 246f050ab4
1 changed files with 21 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
lisp/gnus/gnus-art.el
View file

@ -6678,43 +6678,41 @@ not have a face in `gnus-article-boring-faces'."
"An" "Ap" [?A (meta return)] [?A delete]))
(nosave-in-article
'("AS" "\C-d"))
keys new-sum-point)
keys new-sum-point gnus-pick-mode func)
(with-current-buffer gnus-article-current-summary
(let (gnus-pick-mode)
(setq unread-command-events (nconc unread-command-events
(list (or key last-command-event)))
keys (read-key-sequence nil t))))
(setq unread-command-events (nconc unread-command-events
(list (or key last-command-event)))
keys (read-key-sequence nil t)
func (key-binding keys t)))
(message "")
(when (eq func 'undefined)
(error "%s is undefined" keys))
(cond
((eq (aref keys (1- (length keys))) ?\C-h)
(gnus-article-describe-bindings (substring keys 0 -1)))
((or (member keys nosaves)
(member keys nosave-but-article)
(member keys nosave-in-article))
(let (func)
(with-current-buffer gnus-article-current-summary
;; We disable the pick minor mode commands.
(let (gnus-pick-mode)
(setq func (key-binding keys t))))
(if (or (not func)
(numberp func))
(ding)
(unless (member keys nosave-in-article)
(set-buffer gnus-article-current-summary))
(when (and (symbolp func)
(get func 'disabled))
(error "Function %s disabled" func))
(call-interactively func)
(setq new-sum-point (point)))
(when (member keys nosave-but-article)
(pop-to-buffer gnus-article-buffer))))
(if (or (not func)
(numberp func))
(ding)
(unless (member keys nosave-in-article)
(set-buffer gnus-article-current-summary))
(when (and (symbolp func)
(get func 'disabled))
(error "Function %s disabled" func))
(call-interactively func)
(setq new-sum-point (point)))
(when (member keys nosave-but-article)
(pop-to-buffer gnus-article-buffer)))
(t
;; These commands should restore window configuration.
(let ((obuf (current-buffer))
(owin (current-window-configuration))
win func in-buffer selected new-sum-start new-sum-hscroll err)
win in-buffer selected new-sum-start new-sum-hscroll err)
(cond (not-restore-window
(pop-to-buffer gnus-article-current-summary)
(setq win (selected-window)))
@ -6733,9 +6731,6 @@ not have a face in `gnus-article-boring-faces'."
(select-frame-set-input-focus (window-frame win))
(select-window win))))
(setq in-buffer (current-buffer))
;; We disable the pick minor mode commands.
(setq func (let (gnus-pick-mode)
(key-binding keys t)))
(when (and (symbolp func)
(get func 'disabled))
(error "Function %s disabled" func))