diff options
| author | Per Abrahamsen <abraham@dina.kvl.dk> | 1997-06-19 11:30:04 +0000 |
|---|---|---|
| committer | Per Abrahamsen <abraham@dina.kvl.dk> | 1997-06-19 11:30:04 +0000 |
| commit | a1a4fa22ce167e9a49adedd2a2691609ccf406a8 (patch) | |
| tree | d42160ab0004ae1aac928b6b7fceb1a4d1fec48c /lisp/wid-edit.el | |
| parent | 0093dc5a9a0c0386a0e73708f5837b93878753c3 (diff) | |
| download | emacs-a1a4fa22ce167e9a49adedd2a2691609ccf406a8.tar.gz | |
Synched with 1.9924.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index dc69b0ca828..9ef05d00d05 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -4,7 +4,7 @@ ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: extensions -;; Version: 1.9920 +;; Version: 1.9924 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ ;; This file is part of GNU Emacs. @@ -296,8 +296,11 @@ size field." (when widget-field-add-space (insert-and-inherit " ")) (setq to (point))) - (add-text-properties (1- to) to ;to (1+ to) - '(front-sticky nil start-open t read-only to)) + (if widget-field-add-space + (add-text-properties (1- to) to + '(front-sticky nil start-open t read-only to)) + (add-text-properties to (1+ to) + '(front-sticky nil start-open t read-only to))) (add-text-properties (1- from) from '(rear-nonsticky t end-open t read-only from)) (let ((map (widget-get widget :keymap)) @@ -2653,8 +2656,8 @@ link for that string." (goto-char from) (while (re-search-forward regexp to t) (let ((name (match-string 1)) - (begin (match-beginning 0)) - (end (match-end 0))) + (begin (match-beginning 1)) + (end (match-end 1))) (when (funcall predicate name) (push (widget-convert-button type begin end :value name) buttons))))) |