755 |
(save-excursion |
(save-excursion |
756 |
(goto-char (posn-point (event-end event))) |
(goto-char (posn-point (event-end event))) |
757 |
(setq pos (occur-mode-find-occurrence)))) |
(setq pos (occur-mode-find-occurrence)))) |
758 |
(pop-to-buffer (marker-buffer pos)) |
(switch-to-buffer-other-window (marker-buffer pos)) |
759 |
(goto-char pos))) |
(goto-char pos))) |
760 |
|
|
761 |
(defun occur-mode-find-occurrence () |
(defun occur-mode-find-occurrence () |
770 |
"Go to the occurrence the current line describes." |
"Go to the occurrence the current line describes." |
771 |
(interactive) |
(interactive) |
772 |
(let ((pos (occur-mode-find-occurrence))) |
(let ((pos (occur-mode-find-occurrence))) |
773 |
(pop-to-buffer (marker-buffer pos)) |
(switch-to-buffer (marker-buffer pos)) |
774 |
(goto-char pos))) |
(goto-char pos))) |
775 |
|
|
776 |
(defun occur-mode-goto-occurrence-other-window () |
(defun occur-mode-goto-occurrence-other-window () |