]> code.delx.au - gnu-emacs/blobdiff - lisp/progmodes/etags.el
octave-mode: Link to manual.
[gnu-emacs] / lisp / progmodes / etags.el
index ff6321d74c3431ba4d9936d1bfb282f644a65d52..a7b7e630bb916c21c66f2d058dac1b49407d5b29 100644 (file)
@@ -982,7 +982,7 @@ See documentation of variable `tags-file-name'."
   ;; selected window's buffer; without the hair, point is moved in both
   ;; windows.  To prevent this, we save the selected window's point before
   ;; doing find-tag-noselect, and restore it after.
-  (let* ((window-point (window-point (selected-window)))
+  (let* ((window-point (window-point))
         (tagbuf (find-tag-noselect tagname next-p regexp-p))
         (tagpoint (progn (set-buffer tagbuf) (point))))
     (set-window-point (prog1