Revision: emacs@sv.gnu.org/emacs--devo--0--patch-271

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 33a6781104369c419f2909aa41a3c4821f855fa9..50fb393e24541cb21a0e37fbe19cd69ace5d4b4b 100644 (file)
--- 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 7f6fd2c3ba9dc0027cb70f5e65d484a1662c1b9d..940643b24ccc8efb5fe20f9ffc28995ce6418859 100644 (file)
--- 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 1c7e23cfcd17488fd88b5b42ce46df0a5032df78..ee6c468d711e1ff8370ff31e2497502ead83778e 100644 (file)
--- 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)