# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1292844675 -28800
# Node ID d75c0dfd5c923bc2365639570a02b4ec59f861e0
# Parent  3252d895c24204e905b27f337e1f24addda84248
* help-fns.el (describe-variable): Fix 2010-12-17 change (Bug#7511).

diff -r 3252d895c242 -r d75c0dfd5c92 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Dec 20 01:18:15 2010 +0000
+++ b/lisp/ChangeLog	Mon Dec 20 19:31:15 2010 +0800
@@ -1,3 +1,7 @@
+2010-12-20  Leo  <sdl.web@gmail.com>
+
+	* help-fns.el (describe-variable): Fix 2010-12-17 change.
+
 2010-12-20  Juri Linkov  <juri@jurta.org>
 
 	* isearch.el (isearch-lazy-highlight-error): New variable.
diff -r 3252d895c242 -r d75c0dfd5c92 lisp/help-fns.el
--- a/lisp/help-fns.el	Mon Dec 20 01:18:15 2010 +0000
+++ b/lisp/help-fns.el	Mon Dec 20 19:31:15 2010 +0800
@@ -639,7 +639,7 @@
 		(let ((from (point)))
 		  (terpri)
 		  (pp val)
-		  (if (< (point) (- 68 (line-beginning-position -1)))
+		  (if (< (point) (+ 68 (line-beginning-position 0)))
 		      (delete-region from (1+ from))
 		    (delete-region (1- from) from)))))
 	    (terpri)