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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index addb5f0..eee70ac 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2015-05-28  Paul Eggert  <eggert@cs.ucla.edu>
 
 2015-05-28  Paul Eggert  <eggert@cs.ucla.edu>
 

+       * 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.
 
        * 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 548aa9e..5ed8bf4 100644 (file)
--- 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\\)\\>[^.?]"
      ;; 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)
      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)
      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)
      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\\|<?[Ff]1>?\\)[ \t\n]+v[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET\\>"
      0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-variable 2)
      0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-function 2)
     ("\\b\\(C-h\\|<?[Ff]1>?\\)[ \t\n]+v[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET\\>"
      0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-variable 2)

-    ("[`‘]\\(\\(C-h\\|<?[Ff]1>?\\)[ \t\n]+k[ \t\n]+\\([^'’]+\\)\\)['’]"
+    ("`\\(\\(C-h\\|<?[Ff]1>?\\)[ \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)
      ;; 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)