* ido.el (ido-read-file-name): Guard against non-symbol value.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1213e509692e73329aa2432e56b39e4d79820698..533ea0a0f23f5692deb5bd6507a03a583325132a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-07-13  Leo Liu  <sdl.web@gmail.com>
+
+       * ido.el (ido-read-file-name): Guard against non-symbol value.
+
 2013-07-13  Fabián Ezequiel Gallina  <fgallina@gnu.org>
 
        * progmodes/python.el (python-imenu--build-tree): Fix corner case

diff --git a/lisp/ido.el b/lisp/ido.el
index ce43e866d09f952a02a568ca2948c1b09e5ddf7c..6948e7ad0331074298e18dbbf3e79f761fbb0fa3 100644 (file)
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -4760,16 +4760,20 @@ See `read-file-name' for additional parameters."
   (let (filename)
     (cond
      ((or (eq predicate 'file-directory-p)
-         (eq (get this-command 'ido) 'dir)
+         (eq (and (symbolp this-command)
+                  (get this-command 'ido)) 'dir)
          (memq this-command ido-read-file-name-as-directory-commands))
       (setq filename
            (ido-read-directory-name prompt dir default-filename mustmatch initial)))
-     ((and (not (eq (get this-command 'ido) 'ignore))
+     ((and (not (eq (and (symbolp this-command)
+                        (get this-command 'ido)) 'ignore))
           (not (memq this-command ido-read-file-name-non-ido))
           (or (null predicate) (eq predicate 'file-exists-p)))
       (let* (ido-saved-vc-hb
             (ido-context-switch-command
-             (if (eq (get this-command 'ido) 'find-file) nil 'ignore))
+             (if (eq (and (symbolp this-command)
+                          (get this-command 'ido)) 'find-file)
+                 nil 'ignore))
             (vc-handled-backends (and (boundp 'vc-handled-backends) vc-handled-backends))
             (minibuffer-completing-file-name t)
             (ido-current-directory (ido-expand-directory dir))