[Emacs-diffs] /srv/bzr/emacs/trunk r112646: lisp/gnus/gnus-spec.el (gnus-parse-complex-format): Use unicode escape for left double angle quotation mark

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 112646
author: Adam Sjøgren <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2013-05-20 22:37:06 +0000
message:
  lisp/gnus/gnus-spec.el (gnus-parse-complex-format): Use unicode escape for 
left double angle quotation mark
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-spec.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-05-19 22:50:16 +0000
+++ b/lisp/gnus/ChangeLog       2013-05-20 22:37:06 +0000
@@ -1,3 +1,8 @@
+2013-05-20  Adam Sjøgren  <address@hidden>
+
+       * gnus-spec.el (gnus-parse-complex-format): Use unicode escape for left
+       double angle quotation mark.
+
 2013-05-19  Adam Sjøgren  <address@hidden>
 
        * message.el (message-insert-formatted-citation-line): Handle finding

=== modified file 'lisp/gnus/gnus-spec.el'
--- a/lisp/gnus/gnus-spec.el    2013-03-05 17:13:01 +0000
+++ b/lisp/gnus/gnus-spec.el    2013-05-20 22:37:06 +0000
@@ -441,7 +441,7 @@
              (delim (aref (match-string 2) 0)))
          (if (or (= delim ?\()
                  (= delim ?\{)
-                 (= delim ?\«))
+                 (= delim ?\u00AB)) ; «
              (replace-match (concat "\"("
                                     (cond ((= delim ?\() "mouse")
                                           ((= delim ?\{) "face")