summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2006-05-10 01:58:37 +0000
committerMiles Bader <miles@gnu.org>2006-05-10 01:58:37 +0000
commit1627b55f61f5284bfe26e9bf62d0ea2d61f576da (patch)
treed0f29dda4d9dfd45be5037d71198a6ff9c8ea2f8 /lisp
parentf12a0718b325de6f83b341b0f937379f917bec57 (diff)
downloademacs-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/ChangeLog2
-rw-r--r--lisp/comint.el2
-rw-r--r--lisp/subr.el2
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)