xref: Use other-window-scroll-buffer and user-error

* lisp/progmodes/xref.el (xref--display-position):
Set `other-window-scroll-buffer'.
(xref-goto-xref): Use `user-error'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 39d9436b3f1e6e243c3414be7c257161231526e1..3991885d2ece60637bd904201844ec26cbbdf2be 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2015-01-19  Dmitry Gutov  <dgutov@yandex.ru>
+
+       * progmodes/xref.el (xref--display-position):
+       Set `other-window-scroll-buffer'.
+       (xref-goto-xref): Use `user-error'.
+
 2015-01-19  Dmitry Gutov  <dgutov@yandex.ru>
 
        * progmodes/xref.el (xref--display-history): New variable.

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 4431cb5d3b3a0ed8653a8d9104816c47438a9688..12123c8f2e22b490f47d2a8677a144cd02d759f5 100644 (file)
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -352,6 +352,7 @@ WINDOW controls how the buffer is displayed:
     (let ((buf (current-buffer))
           (win (selected-window)))
       (with-current-buffer xref-buf
+        (setq-local other-window-scroll-buffer buf)
         (xref--save-to-history buf win)))))
 
 (defun xref--show-location (location)
@@ -390,7 +391,7 @@ WINDOW controls how the buffer is displayed:
   (interactive)
   (back-to-indentation)
   (let ((loc (or (xref--location-at-point)
-                 (error "No reference at point")))
+                 (user-error "No reference at point")))
         (window xref--window))
     (xref--quit)
     (xref--pop-to-location loc window)))