[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp simple.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] emacs/lisp simple.el |
Date: |
Sat, 14 Feb 2009 09:06:31 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Eli Zaretskii <eliz> 09/02/14 09:06:31
Modified files:
lisp : simple.el
Log message:
(quoted-insert, zap-to-char): Use `with-no-warnings' around forms that
refer
to translation-table-for-input.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/simple.el?cvsroot=emacs&r1=1.971&r2=1.972
Patches:
Index: simple.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/simple.el,v
retrieving revision 1.971
retrieving revision 1.972
diff -u -b -r1.971 -r1.972
--- simple.el 8 Feb 2009 00:46:38 -0000 1.971
+++ simple.el 14 Feb 2009 09:06:30 -0000 1.972
@@ -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)
+ (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)))))
+ (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: ")
+ ;; 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)))
+ (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))))