diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-01 20:31:14 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-01 23:27:19 +0100 |
| commit | ed7591c9055d4c90d2f59ffbd90aff45da2dc102 (patch) | |
| tree | e438e7c215b661be054f5d706070172e6509b5cc | |
| parent | fd86829e6648338282632b9e97b11f1e76299193 (diff) | |
| download | emacs-ed7591c9055d4c90d2f59ffbd90aff45da2dc102.tar.gz emacs-ed7591c9055d4c90d2f59ffbd90aff45da2dc102.tar.bz2 emacs-ed7591c9055d4c90d2f59ffbd90aff45da2dc102.zip | |
Fix "SEE ALSO" buttons in some man pages
* lisp/man.el (Man-highlight-references0): Don't include "and" in
the links (bug#52229).
| -rw-r--r-- | lisp/man.el | 32 |
1 files changed, 19 insertions, 13 deletions
diff --git a/lisp/man.el b/lisp/man.el index 2bde1fc7fb2..fff31baa5f3 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -1334,7 +1334,7 @@ default type, `Man-xref-man-page' is used for the buttons." (defun Man-highlight-references0 (start-section regexp button-pos target type) ;; Based on `Man-build-references-alist' - (when (or (null start-section) ;; Search regardless of sections. + (when (or (null start-section) ;; Search regardless of sections. ;; Section header is in this chunk. (Man-find-section start-section)) (let ((end (if start-section @@ -1347,18 +1347,24 @@ default type, `Man-xref-man-page' is used for the buttons." (goto-char (point-min)) nil))) (while (re-search-forward regexp end t) - ;; An overlay button is preferable because the underlying text - ;; may have text property highlights (Bug#7881). - (make-button - (match-beginning button-pos) - (match-end button-pos) - 'type type - 'Man-target-string (cond - ((numberp target) - (match-string target)) - ((functionp target) - target) - (t nil))))))) + (let ((b (match-beginning button-pos)) + (e (match-end button-pos)) + (match (match-string button-pos))) + ;; Some lists of references end with ", and ...". Chop the + ;; "and" bit off before making a button. + (when (string-match "\\`and +" match) + (setq b (+ b (- (match-end 0) (match-beginning 0))))) + ;; An overlay button is preferable because the underlying text + ;; may have text property highlights (Bug#7881). + (make-button + b e + 'type type + 'Man-target-string (cond + ((numberp target) + (match-string target)) + ((functionp target) + target) + (t nil)))))))) (defun Man-cleanup-manpage (&optional interactive) "Remove overstriking and underlining from the current buffer. |