/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.777 by jurta, Sun Dec 4 02:42:29 2005 UTC revision 1.778 by handa, Sat Dec 10 01:12:25 2005 UTC
# Line 2741  and KILLP is t if a prefix arg was speci Line 2741  and KILLP is t if a prefix arg was speci
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))))

Legend:
Removed from v.1.777  
changed lines
  Added in v.1.778

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26