[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master e29206e 1/4: Rename xref description slot to summar
From: |
Dmitry Gutov |
Subject: |
[Emacs-diffs] master e29206e 1/4: Rename xref description slot to summary |
Date: |
Mon, 20 Jul 2015 01:53:42 +0000 |
branch: master
commit e29206e84af78ea58dc06155ad5ce9dbcf683cc9
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
Rename xref description slot to summary
* lisp/progmodes/xref.el (xref--xref): Rename the `description'
slot to `summary'.
---
lisp/progmodes/elisp-mode.el | 2 +-
lisp/progmodes/xref.el | 16 ++++++++--------
2 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el
index a7e0bb4..b7ae3c7 100644
--- a/lisp/progmodes/elisp-mode.el
+++ b/lisp/progmodes/elisp-mode.el
@@ -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)
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 8d9a782..bf0710e 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -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)