[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/xref fe40b95 2/5: Make xref-buffer-name a constant
From: |
Dmitry Gutov |
Subject: |
[Emacs-diffs] scratch/xref fe40b95 2/5: Make xref-buffer-name a constant |
Date: |
Fri, 19 Dec 2014 07:47:04 +0000 |
branch: scratch/xref
commit fe40b9579c2b23b5e0e1c29b55bfe8f130b01420
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
Make xref-buffer-name a constant
---
lisp/progmodes/xref.el | 5 +++--
1 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 4474a69..399f15a 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -340,7 +340,8 @@ WINDOW controls how the buffer is displayed:
(define-key map (kbd ".") #'xref-next-line)
(define-key map (kbd ",") #'xref-prev-line))
-(defun xref--buffer-name () "*xref*")
+(defconst xref-buffer-name "*xref*"
+ "The name of the buffer to show xrefs.")
(defun xref--insert-xrefs (xref-alist)
"Insert XREF-ALIST in the current-buffer.
@@ -369,7 +370,7 @@ Return an alist of the form ((FILENAME . (XREF ...)) ...)."
(defun xref--show-xref-buffer (xrefs)
(let ((xref-alist (xref--analyze xrefs)))
- (with-current-buffer (get-buffer-create (xref--buffer-name))
+ (with-current-buffer (get-buffer-create xref-buffer-name)
(let ((inhibit-read-only t))
(erase-buffer)
(xref--insert-xrefs xref-alist)