X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fauto-show.el;h=9e44467ca119d5f928a946380e377cac45d7a256;hp=d8140f537a6783564a691d19194ba8f1b1b46eda;hb=refs%2Fremotes%2Forigin%2Funlabeled-1.1.1;hpb=8b0299e2a613ab99d6e4dc2423e77ff93b715adc

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