[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"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 75de364: man.el: Fix links on hyphenated words (bug#23647),
Stephen Berman <=