Mercurial > emacs
changeset 70552:1121231ccc23
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-271
Rename "field-at-point" to "field-at-pos"
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 10 May 2006 01:58:37 +0000 |
| parents | 617e9f3dfbca |
| children | 09d3b5632463 |
| files | lisp/ChangeLog lisp/comint.el lisp/subr.el |
| diffstat | 3 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed May 10 01:40:17 2006 +0000 +++ b/lisp/ChangeLog Wed May 10 01:58:37 2006 +0000 @@ -5,7 +5,7 @@ 2006-05-10 Miles Bader <miles@gnu.org> - * subr.el (field-at-point): New function. + * subr.el (field-at-pos): New function. * comint.el (comint-insert-input): Use it.
--- a/lisp/comint.el Wed May 10 01:40:17 2006 +0000 +++ b/lisp/comint.el Wed May 10 01:58:37 2006 +0000 @@ -812,7 +812,7 @@ (goto-char (process-mark process)) (insert input))) (let ((pos (point))) - (if (not (eq (field-at-point pos) 'input)) + (if (not (eq (field-at-pos pos) 'input)) ;; No input at POS, fall back to the global definition. (let* ((keys (this-command-keys)) (last-key (and (vectorp keys) (aref keys (1- (length keys)))))
--- a/lisp/subr.el Wed May 10 01:40:17 2006 +0000 +++ b/lisp/subr.el Wed May 10 01:58:37 2006 +0000 @@ -1956,7 +1956,7 @@ "Return non-nil if OBJECT is one of the two canonical boolean values: t or nil." (memq object '(nil t))) -(defun field-at-point (pos) +(defun field-at-pos (pos) "Return the field at position POS, taking stickiness etc into account" (let ((raw-field (get-char-property (field-beginning pos) 'field))) (if (eq raw-field 'boundary)