mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(gnus-pick-mouse-pick-region): Switch 1 => point-min.

Browse source 
(gnus-generate-vertical-tree): Usue `bobp' rather than compare to 1.
(gnus-highlight-selected-tree): Use point-min rather than 1 and 2.
This commit is contained in:
Stefan Monnier 2004-09-07 03:47:29 +00:00
parent 8a98a6c2fe
commit 9b40100a40
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/gnus/gnus-salt.el
View file

@ -230,7 +230,7 @@ This must be bound to a button-down mouse event."
(let* ((echo-keystrokes 0)
(start-posn (event-start start-event))
(start-point (posn-point start-posn))
(start-line (1+ (count-lines 1 start-point)))
(start-line (1+ (count-lines (point-min) start-point)))
(start-window (posn-window start-posn))
(bounds (gnus-window-edges start-window))
(top (nth 1 bounds))
@ -266,17 +266,18 @@ This must be bound to a button-down mouse event."
;; Are we moving within the original window?
((and (eq (posn-window end) start-window)
(integer-or-marker-p end-point))
;; Go to START-POINT first, so that when we move to END-POINT,
;; Go to START-POINT first, so that when we move to END-POINT,
;; if it's in the middle of intangible text,
;; point jumps in the direction away from START-POINT.
(goto-char start-point)
(goto-char end-point)
(gnus-pick-article)
;; In case the user moved his mouse really fast, pick
;; articles on the line between this one and the last one.
(let* ((this-line (1+ (count-lines 1 end-point)))
;; articles on the line between this one and the last one.
(let* ((this-line (1+ (count-lines (point-min) end-point)))
(min-line (min this-line start-line))
(max-line (max this-line start-line)))
;; Why not use `forward-line'? --Stef
(while (< min-line max-line)
(goto-line min-line)
(gnus-pick-article)
@ -787,7 +788,7 @@ Two predefined functions are available:
(setq beg (point))
(forward-char -1)
;; Draw "-" lines leftwards.
(while (and (> (point) 1)
(while (and (not (bobp))
(eq (char-after (1- (point))) ? ))
(delete-char -1)
(insert (car gnus-tree-parent-child-edges))
@ -858,7 +859,8 @@ Two predefined functions are available:
(gnus-extent-detached-p gnus-selected-tree-overlay))
;; Create a new overlay.
(gnus-overlay-put
(setq gnus-selected-tree-overlay (gnus-make-overlay 1 2))
(setq gnus-selected-tree-overlay
(gnus-make-overlay (point-min) (1+ (point-min))))
'face gnus-selected-tree-face))
;; Move the overlay to the article.
(gnus-move-overlay
@ -1062,5 +1064,5 @@ The following commands are available:
(provide 'gnus-salt)
;;; arch-tag: 35449164-77b3-4398-bcbd-a2e3e998f810
;; arch-tag: 35449164-77b3-4398-bcbd-a2e3e998f810
;;; gnus-salt.el ends here