emacs-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]