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

2 files changed, 10 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cdc1b25c7ef..ed022001447 100644
--- 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 63fb1621b35..a0ad7227462 100644
--- 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.