Re: Q about occur buffer/point

[Mike Ballard]

On Thu May 29, Matthias Meulien woke me from a deep sleep when he said:

<snip>

> From my init file :
> 
> (defun alt-occur-mode-view-occurrence ()
>   "View the occurrence the current line describes."
>   (interactive)
>   (let ((pos (occur-mode-find-occurrence)))
>     (pop-to-buffer occur-buffer)
>     (goto-char (marker-position pos))
>     (pop-to-buffer "*Occur*")))
> 
> (add-hook 'occur-mode-hook
>         '(lambda ()
>            (setq truncate-lines t)
>            (hl-line-mode 1)
>            (define-key occur-mode-map "v" 'alt-occur-mode-view-occurrence)
>            (define-key occur-mode-map "q" 'delete-window)))
> 

Perfect!!  Thanks so much....

Mike
-- 

mike.ballard--at--earthlink.net

  "Play an accordion, go to jail.  It's the law!"