Lines Matching defs:point
65 (defun widget-event-point (event)
67 (posn-point (event-end event)))
338 (setq to (point)))
413 (defun widget-mouse-help (window overlay point)
442 (narrow-to-region (point) (point))
444 (goto-char (point-max))))))
580 (let ((cur (point-min))
665 (mouse-set-point event)
666 (let ((pos (widget-event-point event)))
896 "Invoke the editable field at point."
916 (defvar widget-button-click-moves-point nil
917 "If non-nil, `widget-button-click' moves point to a button after invoking it.
918 If nil, point returns to its original position after invoking a button.")
923 (if (widget-event-point event)
926 (pos (widget-event-point event))
936 ;; doesn't change point.
940 (goto-char (posn-point (event-start event)))
971 (setq pos (widget-event-point event))
986 (if widget-button-click-moves-point
987 (setq newpoint (point)))))
993 ;; (unless (pos-visible-in-window-p (widget-event-point event))
994 ;; (mouse-set-point event)
1034 POS defaults to the value of (point)."
1048 "Move point to the ARG next field or button.
1057 (goto-char (point-min))
1060 (goto-char (next-overlay-change (point))))
1074 (goto-char (point-max))
1077 (goto-char (previous-overlay-change (point))))
1091 (widget-echo-help (point))
1095 "Move point to the next field or button.
1102 "Move point to the previous field or button.
1124 (skip-chars-backward " " (field-beginning (1- (point))))))
1129 (let* ((field (widget-field-find (point)))
1132 (kill-region (point) end)
1144 (let ((field (widget-field-find (point))))
1149 "Complete content of editable field from point.
1152 (let ((field (widget-field-find (point))))
1170 "The button or field at POS (default, point)."
1171 (or (get-char-property (or pos (point)) 'button)
1194 ;; Last field containing point.
1203 (let ((field (get-char-property (or pos (point)) 'field)))
1205 (get-char-property (or pos (point)) 'real-field)
1305 (if (or (< (point) (+ begin size))
1306 (> (point) end))
1310 (setq begin (point)))
1314 (> (point) begin))
1446 "Create WIDGET at point in the current buffer."
1448 (let ((from (point))
1462 (setq button-begin (point))
1466 (setq button-end (point)))
1468 (setq sample-begin (point)))
1470 (setq sample-end (point)))
1488 (setq doc-begin (point))
1493 (setq doc-end (point)))))
1497 (setq value-pos (point))))
1510 (let ((from (point-min-marker))
1511 (to (point-max-marker)))
1607 (let* ((old-pos (point))
1913 (from (point))
1925 (move-marker (cdr overlay) (point))
2241 (from (point))
2422 (from (point))
2607 (widget-put widget :value-pos (copy-marker (point)))
2733 (let ((entry-from (point-min-marker))
2734 (entry-to (point-max-marker)))
2906 (goto-char (point-min))
2923 (start (point)))
2929 (widget-documentation-link-add widget start (point))
2940 (setq start (point))
2944 (widget-documentation-link-add widget start (point)))
2947 (widget-documentation-link-add widget start (point))))
3039 "Perform completion on file name preceding point."
3041 (let* ((end (point))
3312 (goto-char (point-min))
3327 (buffer-substring (point)
3328 (point-max))))))
3383 "A number (floating point or integer)."
3386 :type-error "This field should contain a number (floating point or integer)"
3390 "A floating point number."
3391 :tag "Floating point number"
3393 :type-error "This field should contain a floating point number"
3696 (point)))