From: Boruch Baum <boruch_baum@gmx.com>
To: Stefan Monnier <monnier@IRO.UMontreal.CA>
Cc: 20152@debbugs.gnu.org
Subject: bug#20152: 24.4: bookmarks display wrong annotation (FIX INCLUDED)
Date: Fri, 20 Mar 2015 12:29:17 -0400 [thread overview]
Message-ID: <550C4ADD.9050607@gmx.com> (raw)
In-Reply-To: <jwv4mpfyc48.fsf-monnier+emacsbugs@gnu.org>
[-- Attachment #1.1: Type: text/plain, Size: 1116 bytes --]
On 03/20/2015 10:31 AM, Stefan Monnier wrote:
> Same here, please resend your fix as a patch ("diff -u" or "diff -c").
I've attached TWO versions of the patch, in order to give you the option
to easily choose whether you want the second additional feature
mentioned below.
>> "Boruch" == Boruch Baum <boruch_baum@gmx.com> writes:
>
>> In the bookmark list buffer, after viewing an annotation for a
>> bookmark, navigating to another bookmark entry does not kill the
>> annotation buffer display, leading to confusion about which entry
>> the still-visible annotation refers.
>
>> The atttached bugfix kills the annotation buffer on navigation,
>> and remaps navigation keys accordingly.
>
>> The bugfix also introduces an option to automatically display
>> annotations as one navigates within the bookmark list buffer.
This is reflected in file `emacs_bug_20152-a.patch'
>> The bugfix also introduces an option to toggle auto-display of
>> annotations.
This is reflected in file `emacs_bug_20152-b.patch'
--
hkp://keys.gnupg.net
CA45 09B5 5351 7C11 A9D1 7286 0036 9E45 1595 8BC0
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: emacs_bug_20152-a.patch --]
[-- Type: text/x-patch; name="emacs_bug_20152-a.patch", Size: 3352 bytes --]
--- bookmark.el 2015-03-20 12:11:20.889491239 -0400
+++ bookmark-new.el 2015-03-20 12:14:45.825484595 -0400
@@ -1487,9 +1487,11 @@
(define-key map "\C-d" 'bookmark-bmenu-delete-backwards)
(define-key map "x" 'bookmark-bmenu-execute-deletions)
(define-key map "d" 'bookmark-bmenu-delete)
- (define-key map " " 'next-line)
- (define-key map "n" 'next-line)
- (define-key map "p" 'previous-line)
+ (define-key map " " 'bookmark-bmenu-next-line)
+ (define-key map "n" 'bookmark-bmenu-next-line)
+ (define-key map [remap next-line] 'bookmark-bmenu-next-line)
+ (define-key map "p" 'bookmark-bmenu-previous-line)
+ (define-key map [remap previous-line] 'bookmark-bmenu-previous-line)
(define-key map "\177" 'bookmark-bmenu-backup-unmark)
(define-key map "u" 'bookmark-bmenu-unmark)
(define-key map "m" 'bookmark-bmenu-mark)
@@ -1501,6 +1503,8 @@
(define-key map "A" 'bookmark-bmenu-show-all-annotations)
(define-key map "e" 'bookmark-bmenu-edit-annotation)
(define-key map "/" 'bookmark-bmenu-search)
+ (define-key map [remap backward-char] 'bookmark-bmenu-backward-char)
+ (define-key map [remap forward-char] 'bookmark-bmenu-forward-char)
(define-key map [mouse-2] 'bookmark-bmenu-other-window-with-mouse)
map))
@@ -2068,6 +2072,54 @@
(forward-line 1))
(forward-line 0))
+(defvar bookmark-bmenu-auto-display-annotations nil
+"Whether to automatically display a bookmark's annotation as one
+navigates through the bookmark list. `t' for yes. Default is
+`nil'.")
+
+(defun bookmark-bmenu-next-line (&optional ARG TRY-VSCROLL)
+"Move cursor vertically down ARG lines within the bookmark list.
+Refer to function `next-line' for details."
+ (interactive "^p\np")
+ (let
+ ((annotation-buffer
+ (get-buffer "*Bookmark Annotation*")))
+ (when annotation-buffer
+ (kill-buffer annotation-buffer)))
+ (next-line ARG TRY-VSCROLL)
+ (when bookmark-bmenu-auto-display-annotations
+ (bookmark-bmenu-show-annotation)))
+
+(defun bookmark-bmenu-previous-line (&optional ARG TRY-VSCROLL)
+"Move cursor vertically up ARG lines within the bookmark list.
+Refer to function `previous-line' for details."
+ (interactive "^p\np")
+ (let
+ ((annotation-buffer
+ (get-buffer "*Bookmark Annotation*")))
+ (when annotation-buffer
+ (kill-buffer annotation-buffer)))
+ (previous-line ARG TRY-VSCROLL)
+ (when bookmark-bmenu-auto-display-annotations
+ (bookmark-bmenu-show-annotation)))
+
+(defun bookmark-bmenu-forward-char (&optional N)
+ (interactive "p")
+ (bookmark-bmenu-backward-forward-char 'forward-char N))
+
+(defun bookmark-bmenu-backward-char (&optional N)
+ (interactive "p")
+ (bookmark-bmenu-backward-forward-char 'backward-char N))
+
+(defun bookmark-bmenu-backward-forward-char (direction-function N)
+ (let (annotation-buffer
+ (initial-line (line-number-at-pos)))
+ (funcall direction-function N)
+ (when (/= initial-line (line-number-at-pos))
+ (when (setq annotation-buffer (get-buffer "*Bookmark Annotation*"))
+ (kill-buffer annotation-buffer))
+ (when bookmark-bmenu-auto-display-annotations
+ (bookmark-bmenu-show-annotation)))))
\f
;;; Menu bar stuff. Prefix is "bookmark-menu".
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.3: emacs_bug_20152-b.patch --]
[-- Type: text/x-patch; name="emacs_bug_20152-b.patch", Size: 4213 bytes --]
--- bookmark.el 2015-03-20 12:16:19.485481558 -0400
+++ bookmark-new.el 2015-03-20 12:17:41.241478908 -0400
@@ -1487,9 +1487,11 @@
(define-key map "\C-d" 'bookmark-bmenu-delete-backwards)
(define-key map "x" 'bookmark-bmenu-execute-deletions)
(define-key map "d" 'bookmark-bmenu-delete)
- (define-key map " " 'next-line)
- (define-key map "n" 'next-line)
- (define-key map "p" 'previous-line)
+ (define-key map " " 'bookmark-bmenu-next-line)
+ (define-key map "n" 'bookmark-bmenu-next-line)
+ (define-key map [remap next-line] 'bookmark-bmenu-next-line)
+ (define-key map "p" 'bookmark-bmenu-previous-line)
+ (define-key map [remap previous-line] 'bookmark-bmenu-previous-line)
(define-key map "\177" 'bookmark-bmenu-backup-unmark)
(define-key map "u" 'bookmark-bmenu-unmark)
(define-key map "m" 'bookmark-bmenu-mark)
@@ -1501,6 +1503,8 @@
(define-key map "A" 'bookmark-bmenu-show-all-annotations)
(define-key map "e" 'bookmark-bmenu-edit-annotation)
(define-key map "/" 'bookmark-bmenu-search)
+ (define-key map [remap backward-char] 'bookmark-bmenu-backward-char)
+ (define-key map [remap forward-char] 'bookmark-bmenu-forward-char)
(define-key map [mouse-2] 'bookmark-bmenu-other-window-with-mouse)
map))
@@ -1901,9 +1905,20 @@
(bookmark-bmenu-other-window))))
+(defvar bookmark-bmenu-toggle-auto-display-annotations nil
+"When not `nil', function `bookmark-bmenu-show-annotation' (by
+default, bound to `a`), toggles whether to automatically display
+a bookmark's annotation as one navigates through the bookmark
+list. Default is `nil'.")
+
(defun bookmark-bmenu-show-annotation ()
"Show the annotation for the current bookmark in another window."
(interactive)
+ (when (and (called-interactively-p "any")
+ bookmark-bmenu-toggle-auto-display-annotations)
+ (if bookmark-bmenu-auto-display-annotations
+ (setq bookmark-bmenu-auto-display-annotations nil)
+ (setq bookmark-bmenu-auto-display-annotations t)))
(let ((bookmark (bookmark-bmenu-bookmark)))
(bookmark-show-annotation bookmark)))
@@ -2068,6 +2083,54 @@
(forward-line 1))
(forward-line 0))
+(defvar bookmark-bmenu-auto-display-annotations nil
+"Whether to automatically display a bookmark's annotation as one
+navigates through the bookmark list. `t' for yes. Default is
+`nil'.")
+
+(defun bookmark-bmenu-next-line (&optional ARG TRY-VSCROLL)
+"Move cursor vertically down ARG lines within the bookmark list.
+Refer to function `next-line' for details."
+ (interactive "^p\np")
+ (let
+ ((annotation-buffer
+ (get-buffer "*Bookmark Annotation*")))
+ (when annotation-buffer
+ (kill-buffer annotation-buffer)))
+ (next-line ARG TRY-VSCROLL)
+ (when bookmark-bmenu-auto-display-annotations
+ (bookmark-bmenu-show-annotation)))
+
+(defun bookmark-bmenu-previous-line (&optional ARG TRY-VSCROLL)
+"Move cursor vertically up ARG lines within the bookmark list.
+Refer to function `previous-line' for details."
+ (interactive "^p\np")
+ (let
+ ((annotation-buffer
+ (get-buffer "*Bookmark Annotation*")))
+ (when annotation-buffer
+ (kill-buffer annotation-buffer)))
+ (previous-line ARG TRY-VSCROLL)
+ (when bookmark-bmenu-auto-display-annotations
+ (bookmark-bmenu-show-annotation)))
+
+(defun bookmark-bmenu-forward-char (&optional N)
+ (interactive "p")
+ (bookmark-bmenu-backward-forward-char 'forward-char N))
+
+(defun bookmark-bmenu-backward-char (&optional N)
+ (interactive "p")
+ (bookmark-bmenu-backward-forward-char 'backward-char N))
+
+(defun bookmark-bmenu-backward-forward-char (direction-function N)
+ (let (annotation-buffer
+ (initial-line (line-number-at-pos)))
+ (funcall direction-function N)
+ (when (/= initial-line (line-number-at-pos))
+ (when (setq annotation-buffer (get-buffer "*Bookmark Annotation*"))
+ (kill-buffer annotation-buffer))
+ (when bookmark-bmenu-auto-display-annotations
+ (bookmark-bmenu-show-annotation)))))
\f
;;; Menu bar stuff. Prefix is "bookmark-menu".
[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 819 bytes --]
next prev parent reply other threads:[~2015-03-20 16:29 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-03-20 10:38 bug#20152: 24.4: bookmarks display wrong annotation (FIX INCLUDED) Boruch Baum
2015-03-20 14:31 ` Stefan Monnier
2015-03-20 16:29 ` Boruch Baum [this message]
2015-03-20 18:32 ` Boruch Baum
2015-03-20 18:46 ` Boruch Baum
2015-03-26 1:41 ` Stefan Monnier
2021-12-02 10:17 ` Lars Ingebrigtsen
2021-12-03 6:31 ` Boruch Baum
2021-12-05 0:55 ` Lars Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=550C4ADD.9050607@gmx.com \
--to=boruch_baum@gmx.com \
--cc=20152@debbugs.gnu.org \
--cc=monnier@IRO.UMontreal.CA \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.