[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 9094304: * lisp/progmodes/xref.el (xref-buffer-na
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs-25 9094304: * lisp/progmodes/xref.el (xref-buffer-name, xref--window): |
Date: |
Thu, 17 Mar 2016 16:55:16 +0000 |
branch: emacs-25
commit 9094304a9c109495bf2212a713df1b07270d15cd
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* lisp/progmodes/xref.el (xref-buffer-name, xref--window):
Move definitions before use.
---
lisp/progmodes/xref.el | 11 +++++------
1 files changed, 5 insertions(+), 6 deletions(-)
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 69e6a15..feed0fb 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -436,6 +436,8 @@ If SELECT is non-nil, select the target window."
;;; XREF buffer (part of the UI)
;; The xref buffer is used to display a set of xrefs.
+(defconst xref-buffer-name "*xref*"
+ "The name of the buffer to show xrefs.")
(defmacro xref--with-dedicated-window (&rest body)
`(let* ((xref-w (get-buffer-window xref-buffer-name))
@@ -470,6 +472,9 @@ If SELECT is non-nil, select the target window."
(xref--show-pos-in-buf marker buf select))
(user-error (message (error-message-string err)))))
+(defvar-local xref--window nil
+ "The original window this xref buffer was created from.")
+
(defun xref-show-location-at-point ()
"Display the source of xref at point in the appropriate window, if any."
(interactive)
@@ -500,9 +505,6 @@ If SELECT is non-nil, select the target window."
(back-to-indentation)
(get-text-property (point) 'xref-item)))
-(defvar-local xref--window nil
- "The original window this xref buffer was created from.")
-
(defun xref-goto-xref ()
"Jump to the xref on the current line and select its window."
(interactive)
@@ -624,9 +626,6 @@ references displayed in the current *xref* buffer."
(t
(error "No %s xref" (if backward "previous" "next"))))))
-(defconst xref-buffer-name "*xref*"
- "The name of the buffer to show xrefs.")
-
(defvar xref--button-map
(let ((map (make-sparse-keymap)))
(define-key map [(control ?m)] #'xref-goto-xref)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 9094304: * lisp/progmodes/xref.el (xref-buffer-name, xref--window):,
Glenn Morris <=