Mercurial > hg > xemacs-beta

diff lisp/auto-show.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents cc15677e0335
children 74fd4e045ea6
line wrap: on
line diff
--- a/lisp/auto-show.el	Mon Aug 13 11:06:08 2007 +0200
+++ b/lisp/auto-show.el	Mon Aug 13 11:07:10 2007 +0200
@@ -140,8 +140,7 @@
 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