From 783de080977c6368cc1efc00bf1cddf677da6254 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Thu, 28 May 2015 09:00:48 +0000 Subject: [PATCH] Revert my change to gnus-art.el * gnus-art.el (gnus-button-alist): Revert last change. It wasn't that important, and it caused a Gnus build to fail. See: http://www.randomsample.de:4456/builders/emacs-devel/builds/734 --- lisp/ChangeLog | 4 ++++ lisp/gnus-art.el | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index addb5f054..eee70ac53 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2015-05-28 Paul Eggert + * gnus-art.el (gnus-button-alist): Revert last change. + It wasn't that important, and it caused a Gnus build to fail. See: + http://www.randomsample.de:4456/builders/emacs-devel/builds/734 + * gnus-art.el (gnus-button-alist): Also treat "‘" and "’" as quoting chars. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 548aa9e1b..5ed8bf4d2 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -7828,11 +7828,11 @@ positives are possible." ("/\\([a-z][-a-z0-9]+\\.el\\)\\>[^.?]" ;; Exclude [.?] for URLs in gmane.emacs.cvs 1 (>= gnus-button-emacs-level 8) gnus-button-handle-library 1) - ("[`‘]\\([a-z][-a-z0-9]+\\.el\\)['’]" + ("`\\([a-z][-a-z0-9]+\\.el\\)'" 1 (>= gnus-button-emacs-level 8) gnus-button-handle-library 1) - ("[`‘]\\([a-z][a-z0-9]+-[a-z0-9]+-[-a-z0-9]*[a-z]\\|\\(gnus\\|message\\)-[-a-z]+\\)['’]" + ("`\\([a-z][a-z0-9]+-[a-z0-9]+-[-a-z0-9]*[a-z]\\|\\(gnus\\|message\\)-[-a-z]+\\)'" 0 (>= gnus-button-emacs-level 8) gnus-button-handle-symbol 1) - ("[`‘]\\([a-z][a-z0-9]+-[a-z]+\\)['’]" + ("`\\([a-z][a-z0-9]+-[a-z]+\\)'" 0 (>= gnus-button-emacs-level 9) gnus-button-handle-symbol 1) ("(setq[ \t\n]+\\([a-z][a-z0-9]+-[-a-z0-9]+\\)[ \t\n]+.+)" 1 (>= gnus-button-emacs-level 7) gnus-button-handle-describe-variable 1) @@ -7842,7 +7842,7 @@ positives are possible." 0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-function 2) ("\\b\\(C-h\\|?\\)[ \t\n]+v[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET\\>" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-variable 2) - ("[`‘]\\(\\(C-h\\|?\\)[ \t\n]+k[ \t\n]+\\([^'’]+\\)\\)['’]" + ("`\\(\\(C-h\\|?\\)[ \t\n]+k[ \t\n]+\\([^']+\\)\\)'" ;; Unlike the other regexps we really have to require quoting ;; here to determine where it ends. 1 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-key 3) -- 2.25.1