Mercurial > emacs
changeset 102031:7a9e5d67e102
(quoted-insert, zap-to-char): Use `with-no-warnings' around forms that refer
to translation-table-for-input.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 14 Feb 2009 09:06:30 +0000 |
| parents | 1e6acde5f33a |
| children | 5ff1f67594ee |
| files | lisp/simple.el |
| diffstat | 1 files changed, 12 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sat Feb 14 09:05:59 2009 +0000 +++ b/lisp/simple.el Sat Feb 14 09:06:30 2009 +0000 @@ -689,11 +689,14 @@ digits are interpreted as a character code. This is intended to be useful for editing binary files." (interactive "*p") - (let* ((char (let (translation-table-for-input input-method-function) - (if (or (not overwrite-mode) - (eq overwrite-mode 'overwrite-mode-binary)) - (read-quoted-char) - (read-char))))) + (let* ((char + ;; Avoid "obsolete" warnings for translation-table-for-input. + (with-no-warnings + (let (translation-table-for-input input-method-function) + (if (or (not overwrite-mode) + (eq overwrite-mode 'overwrite-mode-binary)) + (read-quoted-char) + (read-char)))))) ;; This used to assume character codes 0240 - 0377 stand for ;; characters in some single-byte character set, and converted them ;; to Emacs characters. But in 23.1 this feature is deprecated @@ -3147,8 +3150,10 @@ 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))) + ;; Avoid "obsolete" warnings for translation-table-for-input. + (with-no-warnings + (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))))