[Emacs-diffs] Changes to emacs/lisp/simple.el

[Kenichi Handa]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.777 emacs/lisp/simple.el:1.778
*** emacs/lisp/simple.el:1.777  Sun Dec  4 02:42:29 2005
--- emacs/lisp/simple.el        Sat Dec 10 01:12:25 2005
***************
*** 2741,2746 ****
--- 2741,2748 ----
  Case is ignored if `case-fold-search' is non-nil in the current buffer.
  Goes backward if ARG is negative; error if CHAR not found."
    (interactive "p\ncZap to char: ")
+   (if (char-table-p translation-table-for-input)
+       (setq char (or (aref translation-table-for-input char) char)))
    (kill-region (point) (progn
                         (search-forward (char-to-string char) nil nil arg)
  ;                      (goto-char (if (> arg 0) (1- (point)) (1+ (point))))