Commits

camlspotter  committed 9218058

window tweak

  • Participants
  • Parent commits ccceb4b
  • Branches lambda

Comments (0)

Files changed (1)

File ocamlspot/ocamlspot.el

 
 (defun ocamlspot-query ()
   (interactive)
+  (let ((sel-window (selected-window)))
   (save-selected-window
     (if (ocamlspot-gen-query nil)
         (progn ;save-excursion
         )
     (ocamlspot-delete-overlays)) ; CR jfuruse: it depends on one's taste
   ; I dunno why but we need the following line to list-buffers work nicely
-  (select-window (selected-window))
-)
+  (select-window sel-window)))
 
 (defun ocamlspot-type (&optional to-kill)
   (interactive)