🚀 go-pugleaf

The function occur-mode-goto-occurrence doesn't go the the correct place if
the point is not at the beginning of the line in the *Occur* buffer.  This
is especially annoying if you want to use a mouse to point at the line (ie
bind a mouse button so that it sets the point and then calls
occur-mode-goto-occurrence).  The following context diff fixes this:

*** replace.el-dist     Mon May  2 16:50:56 1988
--- replace.el  Tue Aug  7 00:30:37 1990
***************
*** 102,108 ****
        (setq occur-buffer nil
              occur-pos-list nil)
        (error "Buffer in which occurences were found is deleted.")))
!   (let* ((occur-number (/ (1- (count-lines (point-min) (point)))
                          (cond ((< occur-nlines 0)
                                 (- 2 occur-nlines))
                                ((> occur-nlines 0)
--- 102,109 ----
        (setq occur-buffer nil
              occur-pos-list nil)
        (error "Buffer in which occurences were found is deleted.")))
!   (let* ((occur-number (/ (- (count-lines (point-min) (point))
!                            (if (bolp) 1 2))
                          (cond ((< occur-nlines 0)
                                 (- 2 occur-nlines))
                                ((> occur-nlines 0)

This is for emacs 18.55.  If you want to install this fix, don't forget that
replace.el is pre-loaded in loaddup.el.
  -Jeff Norden, jsn3287@tntech.(argh!)bitnet
   Dept of Math, Tenn Tech Univ, Cookeville TN 38505