[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master eeb138d: * lisp/man.el (Man-reference-regexp, Man-d
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master eeb138d: * lisp/man.el (Man-reference-regexp, Man-default-man-entry): |
Date: |
Mon, 6 Jun 2016 17:04:56 +0000 (UTC) |
branch: master
commit eeb138d314ecb799eb16959c1367da27699a9ad0
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* lisp/man.el (Man-reference-regexp, Man-default-man-entry):
Handle U+2010 hyphen at eol, as used when LANG=en_US.utf8.
---
lisp/man.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/man.el b/lisp/man.el
index 0410626..d127dec 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -308,7 +308,7 @@ This regular expression should start with a `^' character.")
(defvar Man-reference-regexp
(concat "\\(" Man-name-regexp
- "\\(\n[ \t]+" Man-name-regexp "\\)*\\)[ \t]*(\\("
+ "\\(‐?\n[ \t]+" Man-name-regexp "\\)*\\)[ \t]*(\\("
Man-section-regexp "\\))")
"Regular expression describing a reference to another manpage.")
@@ -779,7 +779,7 @@ POS defaults to `point'."
;; see this-
;; command-here(1)
;; Note: This code gets executed iff our entry is after POS.
- (when (looking-at "[ \t\r\n]+\\([-a-zA-Z0-9._+:]+\\)([0-9])")
+ (when (looking-at "‐?[ \t\r\n]+\\([-a-zA-Z0-9._+:]+\\)([0-9])")
(setq word (concat word (match-string-no-properties 1)))
;; Make sure the section number gets included by the code below.
(goto-char (match-end 1)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master eeb138d: * lisp/man.el (Man-reference-regexp, Man-default-man-entry):,
Glenn Morris <=