Lines Matching +defs:arrow +defs:char
139 If `fringe-arrow', indicate the locus by the fringe arrow."
143 (const :tag "Fringe arrow" fringe-arrow))
152 If `fringe-arrow', indicate the locus by the fringe arrow."
156 (const :tag "Fringe arrow" fringe-arrow))
167 (defvar next-error-overlay-arrow-position nil)
168 (put 'next-error-overlay-arrow-position 'overlay-arrow-string "=>")
169 (add-to-list 'overlay-arrow-variable-list 'next-error-overlay-arrow-position)
425 (not (get-char-property (1- (point)) 'modification-hooks))
426 (not (get-char-property (1- (point)) 'insert-behind-hooks))
428 (not (get-char-property (point) 'insert-in-front-hooks)))
430 (not (get-char-property (1- (point)) 'intangible))
432 (not (get-char-property (1- (point)) 'read-only))
434 (not (get-char-property (1- (point)) 'invisible))
436 ;; properties as the char before it (if any).
442 (if flag (backward-char 1))
444 ;; Set last-command-char to tell self-insert what to insert.
445 (let ((last-command-char ?\n)
453 (if flag (forward-char 1))))
454 ;; Even if we did *not* get an error, keep that forward-char;
466 (goto-char beforepos)
498 (goto-char loc)
505 (goto-char loc)
530 (goto-char pos)))
539 (if (eq (preceding-char) ?\n)
602 (goto-char (point-min))
608 (goto-char (match-end 0))))
635 (goto-char pos)
648 The variable `read-quoted-char-radix' specifies the radix for this feature;
660 (let* ((char (let (translation-table-for-input input-method-function)
663 (read-quoted-char)
664 (read-char)))))
669 (>= char ?\240)
670 (<= char ?\377))
671 (setq char (unibyte-char-to-multibyte char)))
674 (delete-char arg)))
676 (insert-and-inherit char)
706 (save-excursion (forward-char -1)
733 (if (= (following-char) ?\s)
734 (forward-char 1)
752 \(goto-char (point-min)) is faster and avoids clobbering the mark."
758 (goto-char (if (and arg (not (consp arg)))
777 \(goto-char (point-max)) is faster and avoids clobbering the mark."
783 (goto-char (if (and arg (not (consp arg)))
808 (goto-char (point-min)))
859 (goto-char 1)
891 (goto-char (point-min))
899 (goto-char (point-max))
913 (goto-char (point-min))
915 (goto-char opoint)
931 in *Help* buffer. See also the command `describe-char'."
933 (let* ((char (following-char))
957 (if (not (char-valid-p char))
959 (format "(%d, #o%o, #x%x, invalid)" char char char))
974 (setq encoded (and (>= char 128) (encode-coding-char char coding))))
979 char char char under-display)
981 char char char under-display display-prop))
984 char char char
988 (format "(%d, #o%o, #x%x)" char char char)))))
991 (describe-char (point)))
994 (if (< char 256)
995 (single-key-description char)
1000 (if (< char 128)
1001 (single-key-description char)
1003 (single-key-description char))
1048 (let ((char-string
1051 (prin1-char value))))
1052 (if char-string
1053 (format " (#o%o, #x%x, %s)" value value char-string)
1261 (goto-char (point-max))
1264 (goto-char (+ (minibuffer-prompt-end) match-offset))))
1321 (goto-char (point-max))
1338 (goto-char (or minibuffer-temporary-goal-position (point-max))))))
1359 (goto-char point-at-start)))
1862 (goto-char (- (point-max) pos-from-end)))
1869 (goto-char (prog1 (mark t)
1961 (goto-char (point-max))
1963 (backward-char 1))
1967 (goto-char (point-min))
2063 (goto-char start)
2156 (goto-char (- (point-max) pos-from-end)))
2206 (define-key map (vector meta-prefix-char t) 'universal-argument-other-key)
2303 (let* ((char (if (integerp last-command-char)
2304 last-command-char
2305 (get last-command-char 'ascii-character)))
2306 (digit (- (logand char ?\177) ?0)))
2377 (goto-char beg)
2640 (goto-char other-end)
2644 (goto-char opoint)
2727 (goto-char (prog1 (mark t)
2758 (goto-char (prog1 (mark t)
2774 ;; Internal subroutine of delete-char
2780 ;; Internal subroutine of backward-delete-char
2786 (defcustom backward-delete-char-untabify-method 'untabify
2796 (defun backward-delete-char-untabify (arg &optional killp)
2798 The exact behavior depends on `backward-delete-char-untabify-method'.
2803 (when (eq backward-delete-char-untabify-method 'untabify)
2807 (if (= (preceding-char) ?\t)
2809 (forward-char -1)
2811 (insert-char ?\s col)
2812 (delete-char 1)))
2813 (forward-char -1)
2815 (delete-backward-char
2816 (let ((skip (cond ((eq backward-delete-char-untabify-method 'hungry) " \t")
2817 ((eq backward-delete-char-untabify-method 'all)
2826 (defun zap-to-char (arg char)
2830 (interactive "p\ncZap to char: ")
2831 (if (char-table-p translation-table-for-input)
2832 (setq char (or (aref translation-table-for-input char) char)))
2834 (search-forward (char-to-string char) nil nil arg)
2835 ; (goto-char (if (> arg 0) (1- (point)) (1+ (point))))
2893 (goto-char end))))
2925 (unless (bobp) (backward-char))
2946 (get-char-property (1- (point)) 'invisible)))
2958 (get-char-property (point) 'invisible)))
2963 (goto-char
2969 (goto-char opoint))))
2980 (get-char-property (1- (point)) 'invisible)))
2992 (get-char-property (1- (point)) 'invisible)))
2997 (goto-char
3003 (goto-char opoint)))))
3017 (get-char-property (point) 'invisible)))
3024 (goto-char (next-single-property-change (point) 'invisible))
3025 (goto-char (next-overlay-change (point))))
3199 (goto-char (mark t))
3344 (goto-char omark)
3397 (goto-char position)
3499 (get-char-property pos 'invisible)))
3511 (when (> vs (frame-char-height))
3512 (set-window-vscroll nil (- vs (frame-char-height)) t)))
3521 (>= rbot (frame-char-height))
3522 (<= ypos (- (frame-char-height))))
3544 (set-window-vscroll nil (+ vs (min rbot (frame-char-height))) t)))
3550 (set-window-vscroll nil (frame-char-height) t)
3559 (set-window-vscroll nil (frame-char-height) t)))))))
3625 (goto-char (next-char-property-change (point))))
3629 (goto-char (constrain-to-field
3684 (goto-char (previous-char-property-change (point))))))))
3716 (goto-char (next-char-property-change (point)))
3731 (goto-char old))
3737 ;; goto-char moves point past intangible text.
3744 (goto-char new)
3746 (goto-char new)
3755 (backward-char)
3769 (goto-char opoint)
3771 (goto-char
3776 (if (eq (get-char-property new 'field)
3777 (get-char-property opoint 'field))
3805 (goto-char (next-char-property-change (point))))
3815 (goto-char normal-location)
3818 (goto-char (previous-char-property-change (point) line-beg))))))))
3839 (goto-char (previous-char-property-change (point))))
3840 (backward-char 1)))
3842 (goto-char newpos)
3844 (eq (preceding-char) ?\n))
3845 (backward-char 1)
3847 (not (eq (following-char) ?\n)))
3875 (goto-char (previous-char-property-change (point)))
3879 ;; Now find first visible char in the line
3881 (goto-char (next-char-property-change (point))))
3888 (goto-char (if (/= first-vis-field-value first-vis)
3983 (and (null arg) (eolp) (forward-char -1))
3984 (transpose-subr 'forward-char (prefix-numeric-value arg)))
4012 (save-excursion (forward-char -1) (looking-at "\\sw\\|\\s_"))))
4043 (if (/= (preceding-char) ?\n)
4060 (goto-char (mark))
4068 (goto-char (car pos2)))
4071 (goto-char (car pos1))
4087 (goto-char (car pos2))
4089 (goto-char (car pos1))
4114 (goto-char (mark))
4149 (goto-char oldpoint)
4245 (goto-char fill-point)
4272 (goto-char fill-point)
4352 (goto-char (window-start))
4500 (forward-char -1)
4529 ((not (or (eq matching-paren (char-before oldpos))
4531 ;; a matching-char info, in which case the two CDRs
4544 (goto-char blinkpos)
4548 (goto-char blinkpos)
4558 (forward-char 1)
4578 ;; There is nothing to show except the char itself.
4700 (goto-char (point-min))
4703 (goto-char (match-beginning 0))))
4918 (goto-char (next-single-property-change (point) 'mouse-face nil end)))
4921 (goto-char (next-single-property-change (point) 'mouse-face nil end)))
4927 (goto-char (previous-single-property-change
4931 (goto-char (previous-single-property-change
4934 (goto-char (previous-single-property-change
4968 (goto-char (max (- (point) (length string))
4981 (forward-char 1))
4982 (delete-char len)))
5171 (when (get-char-property element-start 'mouse-face)
5173 (get-char-property (1- element-common-end) 'mouse-face))
5176 (if (get-char-property element-common-end 'mouse-face)
5181 (goto-char (point-min))
5203 (goto-char (point-min))
5282 ;; Also tell read-char how to handle these keys.
5396 (goto-char pt)
5483 ;; If the terminal Emacs is running on has erase char
5487 (eq tty-erase-char ?\^H))))