Mercurial > hg > xemacs-beta
comparison lisp/wid-edit.el @ 213:78f53ef88e17 r20-4b5
Import from CVS: tag r20-4b5
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:06:47 +0200 |
| parents | 78478c60bfcd |
| children | 262b8bb4a523 |
comparison
equal
deleted
inserted
replaced
| 212:d8688acf4c5b | 213:78f53ef88e17 |
|---|---|
| 1412 (error "Attempt to change text outside editable field")) | 1412 (error "Attempt to change text outside editable field")) |
| 1413 ((not (eq from-field to-field)) | 1413 ((not (eq from-field to-field)) |
| 1414 ;; The change begins in one fields, and ends in another one. | 1414 ;; The change begins in one fields, and ends in another one. |
| 1415 (add-hook 'post-command-hook 'widget-add-change nil t) | 1415 (add-hook 'post-command-hook 'widget-add-change nil t) |
| 1416 (error "Change should be restricted to a single field")) | 1416 (error "Change should be restricted to a single field")) |
| 1417 ((or (and from-field | |
| 1418 (get-char-property from 'widget-inactive)) | |
| 1419 (and to-field | |
| 1420 (get-char-property to 'widget-inactive))) | |
| 1421 ;; Trying to change an inactive editable field. | |
| 1422 (add-hook 'post-command-hook 'widget-add-change nil t) | |
| 1423 (error "Attempt to change an inactive field")) | |
| 1417 (widget-field-use-before-change | 1424 (widget-field-use-before-change |
| 1418 ;; #### Bletch! This loses because XEmacs get confused | 1425 ;; #### Bletch! This loses because XEmacs get confused |
| 1419 ;; if before-change-functions change the contents of | 1426 ;; if before-change-functions change the contents of |
| 1420 ;; buffer before from/to. | 1427 ;; buffer before from/to. |
| 1421 (condition-case nil | 1428 (condition-case nil |