; elisp-mode.el: Improve consistency among face names.feature/elisp-fontify-semantically

Rename a couple of faces to solidify the convention that the
face name 'elisp-foo' implies "references to foo", not "foo
definitions".  For definitions we use 'elisp-deffoo' if foo is
only one word, or 'elisp-bar-baz-definition' otherwise.

* lisp/progmodes/elisp-mode.el (elisp-function-reference):
Rename to 'elisp-function'.
(elisp-macro-call): Rename to 'elisp-macro'.
(elisp-non-local-exit):
(elisp-unknown-call):
(elisp-special-form):
* lisp/emacs-lisp/elisp-scope.el:
* test/lisp/progmodes/elisp-mode-resources/semantic-highlighting.el:
Update references to renamed faces.

1 files changed, 34 insertions, 34 deletions

diff --git a/test/lisp/progmodes/elisp-mode-resources/semantic-highlighting.el b/test/lisp/progmodes/elisp-mode-resources/semantic-highlighting.el
index a41fb05ce18..25949c61818 100644
--- a/test/lisp/progmodes/elisp-mode-resources/semantic-highlighting.el
+++ b/test/lisp/progmodes/elisp-mode-resources/semantic-highlighting.el
@@ -1,7 +1,7 @@
 ;;; semantic-highlighting.el ---   -*- lexical-binding: t; -*-
 
 (defun foo (bar)
-;; ^ (elisp-macro-call font-lock-keyword-face)
+;; ^ (elisp-macro font-lock-keyword-face)
 ;;     ^ (elisp-defun font-lock-function-name-face)
 ;;          ^ elisp-binding-variable
   (let ((cpa current-prefix-arg))
@@ -11,42 +11,42 @@
     (or cpa (ignore bar)))
 ;;   ^ (elisp-special-form font-lock-keyword-face)
 ;;      ^ elisp-bound-variable
-;;           ^ elisp-function-reference
+;;           ^ elisp-function
 ;;                  ^ elisp-bound-variable
   )
 
 (add-face-text-property
-;; ^ elisp-function-reference
+;; ^ elisp-function
  (point) (mark)
-;; ^ elisp-function-reference
-;;        ^ elisp-function-reference
+;; ^ elisp-function
+;;        ^ elisp-function
  (if not-good
 ;; ^ (elisp-special-form font-lock-keyword-face)
 ;;   ^ elisp-free-variable
      'error
 ;;    ^ elisp-face
    (message "Good.")
-;;  ^ elisp-function-reference
+;;  ^ elisp-function
    'success))
 ;;  ^ elisp-face
 
 (require 'cl-lib)
-;; ^ (elisp-function-reference font-lock-keyword-face)
+;; ^ (elisp-function font-lock-keyword-face)
 ;;        ^ (elisp-feature font-lock-constant-face)
 
 ;; Taken from `completion-shorthand-try-completion' in minibuffer.el:
 (defun foobaz (string table pred point)
-;; ^ (elisp-macro-call font-lock-keyword-face)
+;; ^ (elisp-macro font-lock-keyword-face)
 ;;     ^ (elisp-defun font-lock-function-name-face)
 ;;             ^      ^     ^    ^ elisp-binding-variable
   (cl-loop with expanded
-;; ^ (elisp-macro-call font-lock-keyword-face)
+;; ^ (elisp-macro font-lock-keyword-face)
 ;;              ^ elisp-binding-variable
            for (short . long) in
 ;;              ^ elisp-binding-variable
 ;;                      ^ elisp-binding-variable
            (with-current-buffer minibuffer--original-buffer
-;;          ^ (elisp-macro-call font-lock-keyword-face)
+;;          ^ (elisp-macro font-lock-keyword-face)
 ;;                              ^ elisp-free-variable
              read-symbol-shorthands)
 ;;           ^ elisp-free-variable
@@ -54,27 +54,27 @@
 ;;             ^ elisp-binding-variable
            (and (> point (length short))
 ;;          ^ (elisp-special-form font-lock-keyword-face)
-;;               ^ elisp-function-reference
+;;               ^ elisp-function
 ;;                 ^ elisp-bound-variable
-;;                        ^ elisp-function-reference
+;;                        ^ elisp-function
 ;;                               ^ elisp-bound-variable
                 (string-prefix-p short string)
-;;               ^ elisp-function-reference
+;;               ^ elisp-function
 ;;                               ^ elisp-bound-variable
 ;;                                     ^ elisp-bound-variable
                 (try-completion (setq expanded
-;;               ^ elisp-function-reference
+;;               ^ elisp-function
 ;;                                ^ (elisp-special-form font-lock-keyword-face)
 ;;                                     ^ elisp-bound-variable
                                       (concat long
-;;                                     ^ elisp-function-reference
+;;                                     ^ elisp-function
 ;;                                             ^ elisp-bound-variable
                                               (substring
-;;                                             ^ elisp-function-reference
+;;                                             ^ elisp-function
                                                string
 ;;                                             ^ elisp-bound-variable
                                                (length short))))
-;;                                              ^ elisp-function-reference
+;;                                              ^ elisp-function
 ;;                                                     ^ elisp-bound-variable
                                 table pred))
 ;;                              ^ elisp-bound-variable
@@ -82,44 +82,44 @@
            when probe
 ;;              ^ elisp-bound-variable
            do (message "Shorthand expansion")
-;;             ^ elisp-function-reference
+;;             ^ elisp-function
            and return (cons expanded (max (length long)
-;;                     ^ elisp-function-reference
+;;                     ^ elisp-function
 ;;                          ^ elisp-bound-variable
-;;                                    ^ elisp-function-reference
-;;                                         ^ elisp-function-reference
+;;                                    ^ elisp-function
+;;                                         ^ elisp-function
 ;;                                                ^ elisp-bound-variable
                                           (+ (- point (length short))
-;;                                         ^ elisp-function-reference
-;;                                            ^ elisp-function-reference
-;;                                                     ^ elisp-function-reference
+;;                                         ^ elisp-function
+;;                                            ^ elisp-function
+;;                                                     ^ elisp-function
 ;;                                                            ^ elisp-bound-variable
                                              (length long))))))
-;;                                            ^ elisp-function-reference
+;;                                            ^ elisp-function
 ;;                                                   ^ elisp-bound-variable
 
 (let ((foo 'bar))
 ;; ^ (elisp-special-form font-lock-keyword-face)
 ;;     ^ elisp-binding-variable
   (cl-flet ((foo () 'baz))
-;; ^ (elisp-macro-call font-lock-keyword-face)
-;;           ^ elisp-function-reference
+;; ^ (elisp-macro font-lock-keyword-face)
+;;           ^ elisp-function
     (foo)
-;;   ^ elisp-function-reference
+;;   ^ elisp-function
     (cl-macrolet ((foo () 'foo))
-;;   ^ (elisp-macro-call font-lock-keyword-face)
-;;                 ^ elisp-macro-call
+;;   ^ (elisp-macro font-lock-keyword-face)
+;;                 ^ elisp-macro
       (foo))))
-;;     ^ elisp-macro-call
+;;     ^ elisp-macro
 
 (when-let* ((foo (symbol-at-point))
-;; ^ (elisp-macro-call font-lock-keyword-face)
+;; ^ (elisp-macro font-lock-keyword-face)
 ;;           ^ elisp-binding-variable
-;;                ^ elisp-function-reference
+;;                ^ elisp-function
             current-prefix-arg
 ;;          ^ elisp-shadowing-variable
             ((commandp foo)))
-;;            ^ elisp-function-reference
+;;            ^ elisp-function
 ;;                     ^ elisp-bound-variable
   foo)
 ;; ^ elisp-bound-variable