Subject: bug#25091: 26.0.50; shr-map hides gnus-article keys

From: [email-masked]
Date: Fri, 02 Dec 2016 21:26:20 -0500

Katsumi Yamaoka <[email-masked]> writes:

>
> I'm not quite sure if it is the right way, but tried fixing it
> as follows:

[...]

> +      (let ((command (lookup-key (current-local-map) (this-command-keys))))
> +	(unless (and command
> +		     (condition-case nil
> +			 (progn (call-interactively command) t)
> +		       (error nil)))
> +	  (goto-char start)
> +	  (message "No next link"))))

There's a similar attempt in yasnippet to try use the original binding.
It's generally been troublesome.  I'm planning to switch it to use a
conditional binding as described at [1].

(define-key <map> <key>
  `(menu-item "" <my-cmd> :filter ,(lambda (cmd) (if <my-predicate> cmd))))

[1]: http://stackoverflow.com/questions/16090517/elisp-conditionally-change-keybinding/22863701#22863701