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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 123af6d961399be8005e61dddb846bfdeb8c4935..a8306293cc4ed2938a7271a846cdcc3dde4f0b2d 100644 (file)
--- 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 141fa66436c597d6ab1a8458e4650375a130f886..dfa097ca54e4776b52b3d218a94b245f055eb18b 100644 (file)
--- 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 ()