# HG changeset patch # User Glenn Morris # Date 1277177062 25200 # Node ID d55f872d898ac650dd0c936d73c2a4073b47ae00 # Parent 26ec1305d9415fef92f616d9492c653d5422d1c0 * lisp/wid-edit.el (widget-complete): Doc fix. diff -r 26ec1305d941 -r d55f872d898a lisp/ChangeLog --- a/lisp/ChangeLog Mon Jun 21 20:20:24 2010 -0700 +++ b/lisp/ChangeLog Mon Jun 21 20:24:22 2010 -0700 @@ -1,3 +1,7 @@ +2010-06-22 Glenn Morris + + * wid-edit.el (widget-complete): Doc fix. + 2010-06-22 Jürgen Hötzel (tiny change) * wid-edit.el (widget-complete): Fix typo in 2009-12-02 change. diff -r 26ec1305d941 -r d55f872d898a lisp/wid-edit.el --- a/lisp/wid-edit.el Mon Jun 21 20:20:24 2010 -0700 +++ b/lisp/wid-edit.el Mon Jun 21 20:24:22 2010 -0700 @@ -1156,9 +1156,12 @@ (if field (narrow-to-region (line-beginning-position) (line-end-position))))) +;; This used to say: +;; "When not inside a field, move to the previous button or field." +;; but AFAICS, it has always just thrown an error. (defun widget-complete () "Complete content of editable field from point. -When not inside a field, move to the previous button or field." +When not inside a field, signal an error." (interactive) (let ((field (widget-field-find (point)))) (if field