Markus Rost <rost at math.uni-bielefeld.de>

(describe-no-warranty): Place point in a slightly better position in
the GPLv3 text.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 123af6d9613..a8306293cc4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-10-07  Markus Rost <rost@math.uni-bielefeld.de>
+
+        * help.el (describe-no-warranty): Place point in a slightly better
+        position in the GPLv3 text.
+
 2009-10-06  Sam Steingold  <sds@gnu.org>
 
         * net/tramp-compat.el (tramp-compat-process-running-p): Check that
diff --git a/lisp/help.el b/lisp/help.el
index 141fa66436c..dfa097ca54e 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -323,7 +323,8 @@ If that doesn't give a function, return nil."
   (interactive)
   (describe-copying)
   (let (case-fold-search)
-    (search-forward "NO WARRANTY")
+    (search-forward "Disclaimer of Warranty")
+    (forward-line 0)
     (recenter 0)))
 
 (defun describe-prefix-bindings ()