From 1627b55f61f5284bfe26e9bf62d0ea2d61f576da Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 10 May 2006 01:58:37 +0000 Subject: Revision: emacs@sv.gnu.org/emacs--devo--0--patch-271 Rename "field-at-point" to "field-at-pos" --- lisp/ChangeLog | 2 +- lisp/comint.el | 2 +- lisp/subr.el | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp') 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 - * 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) -- cgit v1.2.1