From 6095a05b11f7457b3dad3db638bf941e76a030db Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 21 Jun 2010 20:24:22 -0700 Subject: [PATCH] * lisp/wid-edit.el (widget-complete): Doc fix. --- lisp/ChangeLog | 4 ++++ lisp/wid-edit.el | 5 ++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2c58cf654dd..ef19f93455f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 --git a/lisp/wid-edit.el b/lisp/wid-edit.el index fa215031465..0859f8fba56 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -1156,9 +1156,12 @@ the field." (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 -- 2.39.2