]> code.delx.au - gnu-emacs/commitdiff
Rename xref description slot to summary
authorDmitry Gutov <dgutov@yandex.ru>
Mon, 20 Jul 2015 00:12:32 +0000 (03:12 +0300)
committerDmitry Gutov <dgutov@yandex.ru>
Mon, 20 Jul 2015 00:12:32 +0000 (03:12 +0300)
* lisp/progmodes/xref.el (xref--xref): Rename the `description'
slot to `summary'.

lisp/progmodes/elisp-mode.el
lisp/progmodes/xref.el

index a7e0bb47a1f5de8840f9af66d94149b267d81222..b7ae3c756deedc0dcb6b9993dc84e011f3c4cb47 100644 (file)
@@ -583,7 +583,7 @@ It can be quoted, or be inside a quoted form."
 ;;; Xref backend
 
 (declare-function xref-make-bogus-location "xref" (message))
-(declare-function xref-make "xref" (description location))
+(declare-function xref-make "xref" (summary location))
 (declare-function xref-collect-references "xref" (symbol dir))
 
 (defun elisp-xref-find (action id)
index 8d9a78230246cbebc2f85ffadafabe3b6b40862b..bf0710ea1cf098bb10172b004066858b44189331 100644 (file)
@@ -148,18 +148,18 @@ actual location is not known.")
 ;;; Cross-reference
 
 (defclass xref--xref ()
-  ((description :type string :initarg :description
-                :reader xref--xref-description)
+  ((summary :type string :initarg :summary
+                :reader xref--xref-summary)
    (location :initarg :location
              :reader xref--xref-location))
   :comment "An xref is used to display and locate constructs like
 variables or functions.")
 
-(defun xref-make (description location)
-  "Create and return a new xref.
-DESCRIPTION is a short string to describe the xref.
+(defun xref-make (summary location)
+  "Create and return a new xref item.
+SUMMARY is a short string to describe the xref.
 LOCATION is an `xref-location'."
-  (make-instance 'xref--xref :description description :location location))
+  (make-instance 'xref--xref :summary summary :location location))
 
 \f
 ;;; API
@@ -534,7 +534,7 @@ GROUP is a string for decoration purposes and XREF is an
            do
            (xref--insert-propertized '(face compilation-info) group "\n")
            (cl-loop for (xref . more2) on xrefs do
-                    (with-slots (description location) xref
+                    (with-slots (summary location) xref
                       (let* ((line (xref-location-line location))
                              (prefix
                               (if line
@@ -549,7 +549,7 @@ GROUP is a string for decoration purposes and XREF is an
                                'help-echo
                                (concat "mouse-2: display in another window, "
                                        "RET or mouse-1: follow reference"))
-                         prefix description)))
+                         prefix summary)))
                     (insert "\n"))))
 
 (defun xref--analyze (xrefs)