]> git.eshelyaron.com Git - emacs.git/commitdiff
New option 'thrifty' for Man-notify-method
authorAugusto Stoffel <arstoffel@gmail.com>
Fri, 26 Aug 2022 11:12:28 +0000 (13:12 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Fri, 26 Aug 2022 11:12:28 +0000 (13:12 +0200)
* lisp/man.el (Man-notify-when-ready): Accept new 'thrifty' notify
method.
(Man-notify-method): Explain what 'thrifty' does (bug#57408).

lisp/man.el

index d66f63972ae7b55495ca60c4632111404c754aaf..7ba7bee4176b364a4f3520e2b4c5e77d388fea20 100644 (file)
@@ -168,13 +168,14 @@ pushy      -- make the manpage the current buffer in the current window
 bully      -- make the manpage the current buffer and only window (sf)
 aggressive -- make the manpage the current buffer in the other window (sf)
 friendly   -- display manpage in the other window but don't make current (sf)
+thrifty    -- reuse an existing manpage window if possible (sf)
 polite     -- don't display manpage, but prints message and beep when ready
 quiet      -- like `polite', but don't beep
 meek       -- make no indication that the manpage is ready
 
 Any other value of `Man-notify-method' is equivalent to `meek'."
   :type '(radio (const newframe) (const pushy) (const bully)
-               (const aggressive) (const friendly)
+               (const aggressive) (const friendly) (const thrifty)
                (const polite) (const quiet) (const meek))
   :group 'man)
 
@@ -1229,6 +1230,11 @@ See the variable `Man-notify-method' for the different notification behaviors."
        (and (frame-live-p saved-frame)
             (select-frame saved-frame))
        (display-buffer man-buffer 'not-this-window))
+      ('thrifty
+       (and (frame-live-p saved-frame)
+            (select-frame saved-frame))
+       (display-buffer man-buffer '(display-buffer-reuse-mode-window
+                                    (mode . Man-mode))))
       ('polite
        (beep)
        (message "Manual buffer %s is ready" (buffer-name man-buffer)))