lisp/subr.el (read-quoted-char): Remove unused local variable `char'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cdc1b25..ed02200 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,12 @@
+2013-07-07  Juanma Barranquero  <lekktu@gmail.com>
+
+       * subr.el (read-quoted-char): Remove unused local variable `char'.
+
 2013-07-07  Michael Kifer  <kifer@cs.stonybrook.edu>
 
        * faces.el  (tty-run-terminal-initialization): function changed (Stefan
        Monnier's patch).
-       
+
        * viper.el (viper-emacs-state-mode-list): add egg-status-buffer-mode.
        (viper-version): version update.
        (viper-go-away,viper-setup-hooks): function changed (Stefan Monnier's
@@ -10,15 +14,15 @@
        (viper--lookup-key,viper-catch-tty-ESC,viper-uncatch-tty-ESC,
        viper-setup-ESC-to-escape): new functions (Stefan Monnier's
        patch).
-       
+
        * viper-cmd.el: (viper-del-forward-char-in-insert): new function.
        (viper-save-kill-buffer): check if buffer is modified.
        (viper-envelop-ESC-key): function deleted (Stefan Monnier's patch).
        (viper-intercept-ESC-key): function changed (Stefan Monnier's patch).
-       
+
        * viper-keym.el (viper-ESC-key): constant changed (Stefan Monnier's
        patch).
-       
+
        * ediff.el (ediff-files-command,ediff3-files-command): new functions.
        (ediff-merge-command,ediff-merge-with-ancestor-command): new functions.
        (ediff-directories-command,ediff-directories3-command): new functions.
@@ -27,7 +31,7 @@
        All the above are command-line interfaces to ediff: facilitate calling
        Emacs with the appropriate ediff functions invoked.
        (ediff-version): version update.
-       
+
 2013-07-07  Eli Zaretskii  <eliz@gnu.org>
 
        * simple.el (default-font-height, window-screen-lines): New

diff --git a/lisp/subr.el b/lisp/subr.el
index 63fb162..a0ad722 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1980,7 +1980,7 @@ any other terminator is used itself as input.
 The optional argument PROMPT specifies a string to use to prompt the user.
 The variable `read-quoted-char-radix' controls which radix to use
 for numeric input."
-  (let ((message-log-max nil) done (first t) (code 0) char translated)
+  (let ((message-log-max nil) done (first t) (code 0) translated)
     (while (not done)
       (let ((inhibit-quit first)
            ;; Don't let C-h get the help message--only help function keys.