General, minor refactor & revision

Across the board. All the boards.
This commit is contained in:
Henrik Lissner 2018-06-16 12:26:58 +02:00
parent 02caf4eeac
commit 44363cae40
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
8 changed files with 12 additions and 14 deletions

View file

@ -151,13 +151,12 @@ the command buffer."
;; `helpful'
(after! helpful
;; Open link in origin window (non-popup) instead of inside the popup window.
(defun +popup*helpful--navigate (button)
(let ((path (substring-no-properties (button-get button 'path)))
origin)
(save-popups!
(find-file path)
;; We use `get-text-property' to work around an Emacs 25 bug:
;; http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=f7c4bad17d83297ee9a1b57552b1944020f23aea
(-when-let (pos (get-text-property button 'position
(marker-buffer button)))
(goto-char pos))