diff options
author | Miles Bader <miles@gnu.org> | 2006-05-10 01:58:37 +0000 |
---|---|---|
committer | Miles Bader <miles@gnu.org> | 2006-05-10 01:58:37 +0000 |
commit | 1627b55f61f5284bfe26e9bf62d0ea2d61f576da (patch) | |
tree | d0f29dda4d9dfd45be5037d71198a6ff9c8ea2f8 /lisp | |
parent | f12a0718b325de6f83b341b0f937379f917bec57 (diff) | |
download | emacs-1627b55f61f5284bfe26e9bf62d0ea2d61f576da.tar.gz |
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-271
Rename "field-at-point" to "field-at-pos"
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 2 | ||||
-rw-r--r-- | lisp/comint.el | 2 | ||||
-rw-r--r-- | lisp/subr.el | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 33a67811043..50fb393e245 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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. diff --git a/lisp/comint.el b/lisp/comint.el index 7f6fd2c3ba9..940643b24cc 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -812,7 +812,7 @@ buffer. The hook `comint-exec-hook' is run after each exec." (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))))) diff --git a/lisp/subr.el b/lisp/subr.el index 1c7e23cfcd1..ee6c468d711 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1956,7 +1956,7 @@ Otherwise, return nil." "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) |