Mercurial > emacs
comparison lisp/comint.el @ 70552:1121231ccc23
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-271
Rename "field-at-point" to "field-at-pos"
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 10 May 2006 01:58:37 +0000 |
| parents | 289021558ff6 |
| children | 09d3b5632463 |
comparison
equal
deleted
inserted
replaced
| 70551:617e9f3dfbca | 70552:1121231ccc23 |
|---|---|
| 810 (if (not process) | 810 (if (not process) |
| 811 (error "Current buffer has no process") | 811 (error "Current buffer has no process") |
| 812 (goto-char (process-mark process)) | 812 (goto-char (process-mark process)) |
| 813 (insert input))) | 813 (insert input))) |
| 814 (let ((pos (point))) | 814 (let ((pos (point))) |
| 815 (if (not (eq (field-at-point pos) 'input)) | 815 (if (not (eq (field-at-pos pos) 'input)) |
| 816 ;; No input at POS, fall back to the global definition. | 816 ;; No input at POS, fall back to the global definition. |
| 817 (let* ((keys (this-command-keys)) | 817 (let* ((keys (this-command-keys)) |
| 818 (last-key (and (vectorp keys) (aref keys (1- (length keys))))) | 818 (last-key (and (vectorp keys) (aref keys (1- (length keys))))) |
| 819 (fun (and last-key (lookup-key global-map (vector last-key))))) | 819 (fun (and last-key (lookup-key global-map (vector last-key))))) |
| 820 (goto-char pos) | 820 (goto-char pos) |