X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fauto-show.el;h=9e44467ca119d5f928a946380e377cac45d7a256;hb=d4b236b78c9e33a6b6a26ac428c36191013d97c6;hp=d8140f537a6783564a691d19194ba8f1b1b46eda;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git

diff --git a/lisp/auto-show.el b/lisp/auto-show.el
index d8140f5..9e44467 100644
--- a/lisp/auto-show.el
+++ b/lisp/auto-show.el
@@ -140,8 +140,7 @@ actually do any horizontal scrolling; rather, it just sets things up so
 that the region will be visible when `auto-show-make-point-visible'
 is next called (this happens after every command)."
   (if (auto-show-should-take-action-p)
-      (let* ((col (current-column))	;column on line point is at
-	     (scroll (window-hscroll));how far window is scrolled
+      (let* ((scroll (window-hscroll))	;how far window is scrolled
 	     (w-width (- (window-width) 
 			 (if (> scroll 0)
 			     2 1)))	;how wide window is on the screen