2741 |
Case is ignored if `case-fold-search' is non-nil in the current buffer. |
Case is ignored if `case-fold-search' is non-nil in the current buffer. |
2742 |
Goes backward if ARG is negative; error if CHAR not found." |
Goes backward if ARG is negative; error if CHAR not found." |
2743 |
(interactive "p\ncZap to char: ") |
(interactive "p\ncZap to char: ") |
2744 |
|
(if (char-table-p translation-table-for-input) |
2745 |
|
(setq char (or (aref translation-table-for-input char) char))) |
2746 |
(kill-region (point) (progn |
(kill-region (point) (progn |
2747 |
(search-forward (char-to-string char) nil nil arg) |
(search-forward (char-to-string char) nil nil arg) |
2748 |
; (goto-char (if (> arg 0) (1- (point)) (1+ (point)))) |
; (goto-char (if (> arg 0) (1- (point)) (1+ (point)))) |