emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 75de364: man.el: Fix links on hyphenated words (bug


From: Stephen Berman
Subject: [Emacs-diffs] master 75de364: man.el: Fix links on hyphenated words (bug#23647)
Date: Sun, 5 Jun 2016 11:14:58 +0000 (UTC)

branch: master
commit 75de3640f147fad8bf1c4a7e393c8e294b9851f6
Author: Stephen Berman <address@hidden>
Commit: Stephen Berman <address@hidden>

    man.el: Fix links on hyphenated words (bug#23647)
    
    * lisp/man.el (Man-bgproc-sentinel): Make links work on
    hyphenated words.
---
 lisp/man.el |   13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/lisp/man.el b/lisp/man.el
index 5acf90b..0410626 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1430,8 +1430,17 @@ manpage command."
                        (quit-restore-window
                         (get-buffer-window (current-buffer) t) 'kill)
                      (kill-buffer (current-buffer)))
-                   (message "Can't find the %s manpage"
-                            (Man-page-from-arguments args)))
+                    ;; Entries hyphenated due to the window's width
+                    ;; won't be found in the man database, so remove
+                    ;; the hyphenation -- assuming Groff hyphenates
+                    ;; either with hyphen-minus (ASCII 45, #x2d),
+                    ;; hyphen (#x2010) or soft hyphen (#xad) -- and
+                    ;; look again.
+                   (if (string-match "[-‐­]" args)
+                       (let ((str (replace-match "" nil nil args)))
+                         (Man-getpage-in-background str))
+                      (message "Can't find the %s manpage"
+                               (Man-page-from-arguments args))))
 
                (if Man-fontify-manpage-flag
                    (message "%s man page formatted"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]