# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1147226317 0
# Node ID 1121231ccc238775202c3f2005891156b54c6489
# Parent  617e9f3dfbca1ca8896185b9ad1a2fce52225861
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-271

Rename "field-at-point" to "field-at-pos"

diff -r 617e9f3dfbca -r 1121231ccc23 lisp/ChangeLog
--- 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.
 
diff -r 617e9f3dfbca -r 1121231ccc23 lisp/comint.el
--- 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)))))
diff -r 617e9f3dfbca -r 1121231ccc23 lisp/subr.el
--- 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)