Mercurial > emacs
comparison lisp/wid-edit.el @ 109302:60516122d066
Merge changes from emacs-23 branch.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 10 Jul 2010 14:52:53 -0400 |
| parents | d835100c3e8b d55f872d898a |
| children | 280c8ae2476d |
comparison
equal
deleted
inserted
replaced
| 109190:8afa85da3f2d | 109302:60516122d066 |
|---|---|
| 1154 (interactive) | 1154 (interactive) |
| 1155 (let ((field (widget-field-find (point)))) | 1155 (let ((field (widget-field-find (point)))) |
| 1156 (if field | 1156 (if field |
| 1157 (narrow-to-region (line-beginning-position) (line-end-position))))) | 1157 (narrow-to-region (line-beginning-position) (line-end-position))))) |
| 1158 | 1158 |
| 1159 ;; This used to say: | |
| 1160 ;; "When not inside a field, move to the previous button or field." | |
| 1161 ;; but AFAICS, it has always just thrown an error. | |
| 1159 (defun widget-complete () | 1162 (defun widget-complete () |
| 1160 "Complete content of editable field from point. | 1163 "Complete content of editable field from point. |
| 1161 When not inside a field, move to the previous button or field." | 1164 When not inside a field, signal an error." |
| 1162 (interactive) | 1165 (interactive) |
| 1163 (let ((field (widget-field-find (point)))) | 1166 (let ((field (widget-field-find (point)))) |
| 1164 (when field | 1167 (if field |
| 1165 (widget-apply field :complete)) | 1168 (widget-apply field :complete) |
| 1166 (error "Not in an editable field"))) | 1169 (error "Not in an editable field")))) |
| 1167 | 1170 |
| 1168 ;;; Setting up the buffer. | 1171 ;;; Setting up the buffer. |
| 1169 | 1172 |
| 1170 (defvar widget-field-new nil | 1173 (defvar widget-field-new nil |
| 1171 "List of all newly created editable fields in the buffer.") | 1174 "List of all newly created editable fields in the buffer.") |