Commit 83d0d484 authored by Troels Henriksen's avatar Troels Henriksen

Unbreak `goto-location'.

parent b105b076
......@@ -3043,7 +3043,8 @@ Each newline and following whitespace is replaced by a single space."
(beep)
(return-from goto-location))
(switch-to-buffer buffer)
(goto-position (source-position location))))
(goto-position (point (current-window))
(char-position (source-position location)))))
(defmethod goto-location ((location file-location))
(let ((buffer (find (file-name location)
......@@ -3055,7 +3056,8 @@ Each newline and following whitespace is replaced by a single space."
(if buffer
(switch-to-buffer buffer)
(climacs-commands::find-file (file-name location)))
(goto-position (source-position location))))
(goto-position (point (current-window))
(char-position (source-position location)))))
;;; Macroexpansion and evaluation
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment