mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

Rename xref description slot to summary

Browse Source 
* lisp/progmodes/xref.el (xref--xref): Rename the `description'
slot to `summary'.
This commit is contained in:
Dmitry Gutov 2015-07-20 03:12:32 +03:00
parent a215fe8a8d
commit e29206e84a
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/progmodes/elisp-mode.el
View 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)

16
lisp/progmodes/xref.el
View 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))
;;; 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)