From: Glenn Morris Date: Wed, 7 Oct 2009 02:52:37 +0000 (+0000) Subject: Markus Rost X-Git-Tag: emacs-pretest-23.1.90~895 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7e2b26cc6d1a2a821c32f32156a93e2388cac40;p=emacs.git Markus Rost (describe-no-warranty): Place point in a slightly better position in the GPLv3 text. --- 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 + + * help.el (describe-no-warranty): Place point in a slightly better + position in the GPLv3 text. + 2009-10-06 Sam Steingold * 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 ()