Lines Matching defs:point
1 ;;; em-rebind.el --- rebind keys when point is at current input
31 while the point is in a region of input text. By default, it binds
35 `eshell-confine-point-to-input' is non-nil, does not allow certain
36 commands to cause the point to leave the input area, such as
59 "*Bind some keys differently if point is in input text."
65 (defcustom eshell-confine-point-to-input t
66 "*If non-nil, do not allow the point to leave the current input.
68 Basically, the `point-left' attribute is added to the input text, and
69 a function is placed on that hook to take the point back to
71 since there are many cases in which the point _ought_ to move away
76 people will left the point alone in the Eshell buffer. Sigh."
117 forward-point
143 (defvar eshell-previous-point)
152 (make-local-variable 'eshell-previous-point)
153 (add-hook 'pre-command-hook 'eshell-save-previous-point nil t)
173 (defun eshell-save-previous-point ()
174 "Save the location of point before the next command is run."
175 (setq eshell-previous-point (point)))
177 (defsubst eshell-point-within-input-p (pos)
186 (and (not (bolp)) (point))))
195 (if (eshell-point-within-input-p (point))
198 (if (and eshell-confine-point-to-input
200 (eshell-point-within-input-p eshell-previous-point))
225 (if (eshell-point-within-input-p (- (point) count))
231 Sends an EOF only if point is at the end of the buffer and there is no
237 ((/= (point) eshell-last-output-end)