[Emacs-diffs] trunk r117085: * lisp/info.el (Info-quoted): New face.

[Stefan Monnier]

------------------------------------------------------------
revno: 117085
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sat 2014-05-10 23:49:53 -0400
message:
  * lisp/info.el (Info-quoted): New face.
  (Info-mode-font-lock-keywords): New var.
  (Info-mode): Use it.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/info.el                   info.el-20091113204419-o5vbwnq5f7feedwu-261

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-05-11 03:48:15 +0000
+++ b/lisp/ChangeLog    2014-05-11 03:49:53 +0000
@@ -1,5 +1,9 @@
 2014-05-11  Stefan Monnier  <address@hidden>
 
+       * info.el (Info-quoted): New face.
+       (Info-mode-font-lock-keywords): New var.
+       (Info-mode): Use it.
+
        * emacs-lisp/lisp-mode.el (preceding-sexp): Exclude leading "," which
        are a hindrance for C-x C-e.
 
@@ -232,14 +236,14 @@
        (diary-chinese-insert-yearly-entry): New commands to insert
        Chinese diary entries.
 
-       * calendar/diary-lib.el (diary-font-lock-keywords): Support
-       font-locking Chinese dates.
+       * calendar/diary-lib.el (diary-font-lock-keywords):
+       Support font-locking Chinese dates.
 
        * calendar/cal-menu.el (cal-menu-diary-menu): Add entries for
        inserting Chinese diary entries.
 
-       * calendar/calendar.el (diary-chinese-entry-symbol): New
-       customizable variable.
+       * calendar/calendar.el (diary-chinese-entry-symbol):
+       New customizable variable.
        (calendar-mode-map): Add bindings for inserting Chinese diary
        entries.
 
@@ -258,8 +262,8 @@
        incorrectness of position adjustments when undoing in region.
        (Bug#17235)
        (undo-elt-crosses-region): Make obsolete.
-       (undo-adjust-elt, undo-adjust-beg-end, undo-adjust-pos): New
-       functions to adjust positions using undo-deltas.
+       (undo-adjust-elt, undo-adjust-beg-end, undo-adjust-pos):
+       New functions to adjust positions using undo-deltas.
 
 2014-05-01  Stefan Monnier  <address@hidden>
 

=== modified file 'lisp/info.el'
--- a/lisp/info.el      2014-04-24 14:04:36 +0000
+++ b/lisp/info.el      2014-05-11 03:49:53 +0000
@@ -4209,9 +4209,16 @@
     st)
   "Syntax table used in `Info-mode'.")
 
+(defface Info-quoted
+  '((t :family "courier"))
+  "Face used for quoted elements.")
+
+(defvar Info-mode-font-lock-keywords
+  '(("‘\\([^’]*\\)’" (1 'Info-quoted))))
+
 ;; Autoload cookie needed by desktop.el
 ;;;###autoload
-(define-derived-mode Info-mode nil "Info"
+(define-derived-mode Info-mode nil "Info" ;FIXME: Derive from special-mode?
   "Info mode provides commands for browsing through the Info documentation 
tree.
 Documentation in Info is divided into \"nodes\", each of which discusses
 one topic and contains references to other nodes which discuss related
@@ -4297,6 +4304,7 @@
   (setq-local isearch-push-state-function #'Info-isearch-push-state)
   (setq-local isearch-filter-predicate #'Info-isearch-filter)
   (setq-local revert-buffer-function #'Info-revert-buffer-function)
+  (setq-local font-lock-defaults '(Info-mode-font-lock-keywords t t))
   (Info-set-mode-line)
   (setq-local bookmark-make-record-function #'Info-bookmark-make-record))