[Emacs-diffs] /srv/bzr/emacs/trunk r110177: Fix uses of long-obsolete font-lock-reference face.

[Chong Yidong]

------------------------------------------------------------
revno: 110177
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Mon 2012-09-24 19:39:33 +0800
message:
  Fix uses of long-obsolete font-lock-reference face.
  
  * generic-x.el (rul-generic-mode): Use font-lock-constant-face.
  * calendar/calendar.el (calendar-font-lock-keywords):
  * calendar/diary-lib.el (diary-font-lock-keywords)
  (diary-fancy-font-lock-keywords):
  * textmodes/reftex-sel.el (reftex-insert-docstruct):
  * textmodes/reftex-index.el (reftex-insert-index):
  * textmodes/reftex-cite.el (reftex-format-bib-entry):
  * progmodes/ruby-mode.el (ruby-font-lock-keywords):
  * progmodes/ps-mode.el (ps-mode-font-lock-keywords-1):
  * progmodes/prolog.el (prolog-font-lock-keywords):
  * progmodes/idlwave.el (idlwave-idl-keywords):
  * progmodes/ada-mode.el (ada-font-lock-keywords):
  * net/snmp-mode.el (snmp-font-lock-keywords-3): Likewise.
  
  * font-lock.el (font-lock-reference-face): Use
  define-obsolete-variable-alias.
modified:
  lisp/ChangeLog
  lisp/calendar/calendar.el
  lisp/calendar/diary-lib.el
  lisp/generic-x.el
  lisp/progmodes/ada-mode.el
  lisp/progmodes/idlwave.el
  lisp/progmodes/prolog.el
  lisp/progmodes/ps-mode.el
  lisp/progmodes/ruby-mode.el
  lisp/textmodes/reftex-cite.el
  lisp/textmodes/reftex-index.el
  lisp/textmodes/reftex-sel.el
  lisp/textmodes/reftex.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-24 00:46:47 +0000
+++ b/lisp/ChangeLog    2012-09-24 11:39:33 +0000
@@ -1,3 +1,22 @@
+2012-09-24  Chong Yidong  <address@hidden>
+
+       * font-lock.el (font-lock-reference-face): Use
+       define-obsolete-variable-alias.
+
+       * generic-x.el (rul-generic-mode): Use font-lock-constant-face.
+       * calendar/calendar.el (calendar-font-lock-keywords):
+       * calendar/diary-lib.el (diary-font-lock-keywords)
+       (diary-fancy-font-lock-keywords):
+       * textmodes/reftex-sel.el (reftex-insert-docstruct):
+       * textmodes/reftex-index.el (reftex-insert-index):
+       * textmodes/reftex-cite.el (reftex-format-bib-entry):
+       * progmodes/ruby-mode.el (ruby-font-lock-keywords):
+       * progmodes/ps-mode.el (ps-mode-font-lock-keywords-1):
+       * progmodes/prolog.el (prolog-font-lock-keywords):
+       * progmodes/idlwave.el (idlwave-idl-keywords):
+       * progmodes/ada-mode.el (ada-font-lock-keywords):
+       * net/snmp-mode.el (snmp-font-lock-keywords-3): Likewise.
+
 2012-09-24  Glenn Morris  <address@hidden>
 
        * mail/emacsbug.el (report-emacs-bug): Include `lsb_release -d'.

=== modified file 'lisp/calendar/calendar.el'
--- a/lisp/calendar/calendar.el 2012-09-19 07:27:29 +0000
+++ b/lisp/calendar/calendar.el 2012-09-24 11:39:33 +0000
@@ -2298,7 +2298,7 @@
     ;; First two chars of each day are used in the calendar.
     (,(regexp-opt (mapcar (lambda (x) (substring x 0 
calendar-day-header-width))
                           calendar-day-name-array))
-     . font-lock-reference-face))
+     . font-lock-constant-face))
   "Default keywords to highlight in Calendar mode.")
 
 (defun calendar-day-name (date &optional abbrev absolute)

=== modified file 'lisp/calendar/diary-lib.el'
--- a/lisp/calendar/diary-lib.el        2012-09-17 05:41:04 +0000
+++ b/lisp/calendar/diary-lib.el        2012-09-24 11:39:33 +0000
@@ -2400,10 +2400,10 @@
     (cons
      (format "^%s?\\(%s\\)" (regexp-quote diary-nonmarking-symbol)
              (regexp-quote diary-sexp-entry-symbol))
-     '(1 font-lock-reference-face))
+     '(1 font-lock-constant-face))
     (cons
      (format "^%s" (regexp-quote diary-nonmarking-symbol))
-     'font-lock-reference-face)
+     'font-lock-constant-face)
     (cons
      (format "^%s?%s" (regexp-quote diary-nonmarking-symbol)
              (regexp-opt (mapcar 'regexp-quote
@@ -2411,7 +2411,7 @@
                                        diary-islamic-entry-symbol
                                        diary-bahai-entry-symbol))
                          t))
-     '(1 font-lock-reference-face))
+     '(1 font-lock-constant-face))
     '(diary-font-lock-sexps . font-lock-keyword-face)
     ;; Don't need to worry about space around "-" because the first
     ;; match takes care of that.  It does mean the "-" itself may or
@@ -2482,7 +2482,7 @@
 (defvar diary-fancy-font-lock-keywords
   `((diary-fancy-date-matcher . diary-face)
     ("^.*\\([aA]nniversary\\|[bB]irthday\\).*$" . 'diary-anniversary)
-    ("^.*Yahrzeit.*$" . font-lock-reference-face)
+    ("^.*Yahrzeit.*$" . font-lock-constant-face)
     ("^\\(Erev \\)?Rosh Hodesh.*" . font-lock-function-name-face)
     ("^Day.*omer.*$" . font-lock-builtin-face)
     ("^Parashat.*$" . font-lock-comment-face)

=== modified file 'lisp/generic-x.el'
--- a/lisp/generic-x.el 2012-09-17 05:41:04 +0000
+++ b/lisp/generic-x.el 2012-09-24 11:39:33 +0000
@@ -1531,15 +1531,15 @@
      '("#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)"
        1 font-lock-string-face)
      '("#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
-       (1 font-lock-reference-face)
+       (1 font-lock-constant-face)
        (2 font-lock-variable-name-face nil t))
      ;; indirect string constants
      '("\\(@[A-Za-z][A-Za-z0-9_]+\\)" 1 font-lock-builtin-face)
      ;; gotos
-     '("[ \t]*\\(\\sw+:\\)"           1 font-lock-reference-face)
+     '("[ \t]*\\(\\sw+:\\)"           1 font-lock-constant-face)
      '("\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?"
        (1 font-lock-keyword-face)
-       (2 font-lock-reference-face nil t))
+       (2 font-lock-constant-face nil t))
      ;; system variables
      (generic-make-keywords-list
       installshield-system-variables-list

=== modified file 'lisp/progmodes/ada-mode.el'
--- a/lisp/progmodes/ada-mode.el        2012-06-02 10:56:09 +0000
+++ b/lisp/progmodes/ada-mode.el        2012-09-24 11:39:33 +0000
@@ -5218,11 +5218,11 @@
      ;; correctly highlight a with_clause that spans multiple lines.
      (list (concat "\\<\\(goto\\|raise\\|use\\|with\\)"
                   "[ \t]+\\([a-zA-Z0-9_., \t]+\\)\\W")
-          '(1 font-lock-keyword-face) '(2 font-lock-reference-face nil t))
+          '(1 font-lock-keyword-face) '(2 font-lock-constant-face nil t))
 
      ;;
      ;; Goto tags.
-     '("<<\\(\\sw+\\)>>" 1 font-lock-reference-face)
+     '("<<\\(\\sw+\\)>>" 1 font-lock-constant-face)
 
      ;; Highlight based-numbers (R. Reagan <address@hidden>)
      (list "\\([0-9]+#[0-9a-fA-F_]+#\\)" '(1 font-lock-constant-face t))

=== modified file 'lisp/progmodes/idlwave.el'
--- a/lisp/progmodes/idlwave.el 2012-09-17 05:41:04 +0000
+++ b/lisp/progmodes/idlwave.el 2012-09-24 11:39:33 +0000
@@ -1151,7 +1151,7 @@
        (common-blocks
        '("\\<\\(common\\)\\>[ \t]*\\(\\sw+\\)?[ \t]*,?"
          (1 font-lock-keyword-face)              ; "common"
-         (2 font-lock-reference-face nil t)      ; block name
+         (2 font-lock-constant-face nil t)      ; block name
          ("[ \t]*\\(\\sw+\\)[ ,]*"
           ;; Start with point after block name and comma
           (goto-char (match-end 0))  ; needed for XEmacs, could be nil
@@ -1169,20 +1169,20 @@
 
        ;; Labels
        (label
-       '("^[ \t]*\\([a-zA-Z]\\sw*:\\)" (1 font-lock-reference-face)))
+       '("^[ \t]*\\([a-zA-Z]\\sw*:\\)" (1 font-lock-constant-face)))
 
        ;; The goto statement and its label
        (goto
        '("\\(goto\\)[ \t]*,[ \t]*\\([a-zA-Z]\\sw*\\)"
          (1 font-lock-keyword-face)
-         (2 font-lock-reference-face)))
+         (2 font-lock-constant-face)))
 
        ;; Tags in structure definitions.  Note that this definition
        ;; actually collides with labels, so we have to use the same
        ;; face.  It also matches named subscript ranges,
        ;; e.g. vec{bottom:top].  No good way around this.
        (structtag
-       '("\\<\\([a-zA-Z][a-zA-Z0-9_]*:\\)[^:]" (1 font-lock-reference-face)))
+       '("\\<\\([a-zA-Z][a-zA-Z0-9_]*:\\)[^:]" (1 font-lock-constant-face)))
 
        ;; Structure names
        (structname
@@ -1195,7 +1195,7 @@
        ;; fontification.  Slow, use it only in fancy fontification.
        (keyword-parameters
        '("\\(,\\|[a-zA-Z0-9_](\\)[ \t]*\\(\\$[ \t]*\\(;.*\\)?\n\\([ 
\t]*\\(;.*\\)?\n\\)*[ \t]*\\)?\\(/[a-zA-Z_]\\sw*\\|[a-zA-Z_]\\sw*[ \t]*=\\)"
-         (6 font-lock-reference-face)))
+         (6 font-lock-constant-face)))
 
        ;; System variables start with a bang.
        (system-variables

=== modified file 'lisp/progmodes/prolog.el'
--- a/lisp/progmodes/prolog.el  2012-09-17 05:41:04 +0000
+++ b/lisp/progmodes/prolog.el  2012-09-24 11:39:33 +0000
@@ -2110,7 +2110,7 @@
            (if (eq prolog-system 'mercury)
                (list
                 (prolog-make-keywords-regexp prolog-mode-specificators-i t)
-                0 'font-lock-reference-face)))
+                0 'font-lock-constant-face)))
           (directives
            (if (eq prolog-system 'mercury)
                (list

=== modified file 'lisp/progmodes/ps-mode.el'
--- a/lisp/progmodes/ps-mode.el 2012-04-09 13:05:48 +0000
+++ b/lisp/progmodes/ps-mode.el 2012-09-24 11:39:33 +0000
@@ -213,9 +213,9 @@
 ;;  - 8bit characters (warning face)
 ;; Multiline strings are not supported. Strings with nested brackets are.
 (defconst ps-mode-font-lock-keywords-1
-  '(("\\`%!PS.*" . font-lock-reference-face)
+  '(("\\`%!PS.*" . font-lock-constant-face)
     ("^%%BoundingBox:[ \t]+-?[0-9]+[ \t]+-?[0-9]+[ \t]+-?[0-9]+[ \t]+-?[0-9]+[ 
\t]*$"
-     . font-lock-reference-face)
+     . font-lock-constant-face)
     (ps-mode-match-string-or-comment
      (1 font-lock-comment-face nil t)
      (2 font-lock-string-face nil t))

=== modified file 'lisp/progmodes/ruby-mode.el'
--- a/lisp/progmodes/ruby-mode.el       2012-09-18 22:10:19 +0000
+++ b/lisp/progmodes/ruby-mode.el       2012-09-24 11:39:33 +0000
@@ -1567,7 +1567,7 @@
      2 font-lock-variable-name-face)
    ;; symbols
    
'("\\(^\\|[^:]\\)\\(:\\(address@hidden|[/%&|^`]\\|\\*\\*?\\|<\\(<\\|=>?\\)?\\|>[>=]?\\|===?\\|=~\\|![~=]?\\|\\[\\]=?\\|@?\\(\\w\\|_\\)+\\([!?=]\\|\\b_*\\)\\|#{[^}\n\\\\]*\\(\\\\.[^}\n\\\\]*\\)*}\\)\\)"
-     2 font-lock-reference-face)
+     2 font-lock-constant-face)
    ;; variables
    '("\\(\\$\\([^a-zA-Z0-9 \n]\\|[0-9]\\)\\)\\W"
      1 font-lock-variable-name-face)
@@ -1576,7 +1576,7 @@
    ;; constants
    '("\\(^\\|[^_]\\)\\b\\([A-Z]+\\(\\w\\|_\\)*\\)"
      2 font-lock-type-face)
-   '("\\(^\\s *\\|[\[\{\(,]\\s *\\|\\sw\\s +\\)\\(\\(\\sw\\|_\\)+\\):[^:]" 2 
font-lock-reference-face)
+   '("\\(^\\s *\\|[\[\{\(,]\\s *\\|\\sw\\s +\\)\\(\\(\\sw\\|_\\)+\\):[^:]" 2 
font-lock-constant-face)
    ;; expression expansion
    '(ruby-match-expression-expansion
      0 font-lock-variable-name-face t)

=== modified file 'lisp/textmodes/reftex-cite.el'
--- a/lisp/textmodes/reftex-cite.el     2012-01-19 07:21:25 +0000
+++ b/lisp/textmodes/reftex-cite.el     2012-09-24 11:39:33 +0000
@@ -542,10 +542,7 @@
          (t ""))))
     (setq authors (reftex-truncate authors 30 t t))
     (when (reftex-use-fonts)
-      (put-text-property 0 (length key)     'face
-                         (reftex-verified-face reftex-label-face
-                                               'font-lock-constant-face
-                                               'font-lock-reference-face)
+      (put-text-property 0 (length key)     'face reftex-label-face
                          key)
       (put-text-property 0 (length authors) 'face reftex-bib-author-face
                          authors)

=== modified file 'lisp/textmodes/reftex-index.el'
--- a/lisp/textmodes/reftex-index.el    2012-05-13 03:05:06 +0000
+++ b/lisp/textmodes/reftex-index.el    2012-09-24 11:39:33 +0000
@@ -585,9 +585,7 @@
           (if (memq reftex-highlight-selection '(mouse both))
               reftex-mouse-selected-face
             nil))
-         (index-face (reftex-verified-face reftex-label-face
-                                           'font-lock-constant-face
-                                           'font-lock-reference-face))
+         (index-face reftex-label-face)
          sublist cell from to first-char)
 
     ;; Make the sublist and sort it

=== modified file 'lisp/textmodes/reftex-sel.el'
--- a/lisp/textmodes/reftex-sel.el      2012-05-13 03:05:06 +0000
+++ b/lisp/textmodes/reftex-sel.el      2012-09-24 11:39:33 +0000
@@ -245,12 +245,8 @@
           (if (memq reftex-highlight-selection '(mouse both))
               reftex-mouse-selected-face
             nil))
-         (label-face (reftex-verified-face reftex-label-face
-                                           'font-lock-constant-face
-                                           'font-lock-reference-face))
-         (index-face (reftex-verified-face reftex-index-face
-                                           'font-lock-constant-face
-                                           'font-lock-reference-face))
+         (label-face reftex-label-face)
+         (index-face reftex-index-face)
          all cell text label typekey note comment master-dir-re
          prev-inserted offset from to index-tag docstruct-symbol)
 

=== modified file 'lisp/textmodes/reftex.el'
--- a/lisp/textmodes/reftex.el  2012-09-17 05:41:04 +0000
+++ b/lisp/textmodes/reftex.el  2012-09-24 11:39:33 +0000
@@ -2311,9 +2311,7 @@
   ;; Return the first valid face in FACES, or nil if none is valid.
   ;; Also, when finding a nil element in FACES, return nil.  This
   ;; function is just a safety net to catch name changes of builtin
-  ;; fonts. Currently it is only used for reftex-label-face, which has
-  ;; as default font-lock-reference-face, which was recently renamed
-  ;; to font-lock-constant-face.
+  ;; fonts. Currently it is only used for reftex-label-face.
   (let (face)
     (catch 'exit
       (while (setq face (pop faces))