diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-05-28 00:06:14 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-05-28 00:22:03 -0700 |
| commit | 89ab85f2f499126f025c6780c6ac22458f593a27 (patch) | |
| tree | 991fef2205016c96c857d704775cdac3d089cea1 /lisp/info-look.el | |
| parent | 67c28d1fb3b81f01e9f908ea99763165d84680dd (diff) | |
| download | emacs-89ab85f2f499126f025c6780c6ac22458f593a27.tar.gz | |
Accept curved quotes in doc strings
* lisp/info-look.el (info-lookup-guess-custom-symbol):
(info-lookup-alist): Treat ‘’ like `' when parsing help buffers etc.
Diffstat (limited to 'lisp/info-look.el')
| -rw-r--r-- | lisp/info-look.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/info-look.el b/lisp/info-look.el index 8a86dc81687..6168a0c2660 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el @@ -613,8 +613,8 @@ Return nil if there is nothing appropriate in the buffer near point." (condition-case nil (save-excursion (let ((case-fold-search t) - (ignored-chars "][()`',:.\" \t\n") - (significant-chars "^][()`',:.\" \t\n") + (ignored-chars "][()`'‘’,:.\" \t\n") + (significant-chars "^][()`'‘’,:.\" \t\n") beg end) (cond ((and (memq (get-char-property (point) 'face) @@ -899,7 +899,7 @@ Return nil if there is nothing appropriate in the buffer near point." (info-lookup-maybe-add-help :mode 'emacs-lisp-mode - :regexp "[^][()`',\" \t\n]+" + :regexp "[^][()`'‘’,\" \t\n]+" :doc-spec '(;; Commands with key sequences appear in nodes as `foo' and ;; those without as `M-x foo'. ("(emacs)Command Index" nil "['`‘]\\(M-x[ \t\n]+\\)?" "['’]") @@ -917,24 +917,24 @@ Return nil if there is nothing appropriate in the buffer near point." ;; docstrings talk about elisp, so have apropos-mode follow emacs-lisp-mode (info-lookup-maybe-add-help :mode 'apropos-mode - :regexp "[^][()`',\" \t\n]+" ;; same as emacs-lisp-mode above + :regexp "[^][()`'‘’,\" \t\n]+" ;; same as emacs-lisp-mode above :other-modes '(emacs-lisp-mode)) (info-lookup-maybe-add-help :mode 'lisp-interaction-mode - :regexp "[^][()`',\" \t\n]+" + :regexp "[^][()`'‘’,\" \t\n]+" :parse-rule 'ignore :other-modes '(emacs-lisp-mode)) (info-lookup-maybe-add-help :mode 'lisp-mode - :regexp "[^()`',\" \t\n]+" + :regexp "[^()`'‘’,\" \t\n]+" :parse-rule 'ignore :other-modes '(emacs-lisp-mode)) (info-lookup-maybe-add-help :mode 'scheme-mode - :regexp "[^()`',\" \t\n]+" + :regexp "[^()`'‘’,\" \t\n]+" :ignore-case t ;; Aubrey Jaffer's rendition from <URL:ftp://ftp-swiss.ai.mit.edu/pub/scm> :doc-spec '(("(r5rs)Index" nil @@ -1041,13 +1041,13 @@ Return nil if there is nothing appropriate in the buffer near point." (info-lookup-maybe-add-help :mode 'Custom-mode :ignore-case t - :regexp "[^][()`',:\" \t\n]+" + :regexp "[^][()`'‘’,:\" \t\n]+" :parse-rule 'info-lookup-guess-custom-symbol :other-modes '(emacs-lisp-mode)) (info-lookup-maybe-add-help :mode 'help-mode - :regexp "[^][()`',:\" \t\n]+" + :regexp "[^][()`'‘’,:\" \t\n]+" :other-modes '(emacs-lisp-mode)) (provide 'info-look) |