(Fexpand_file_name): In the no-handler case, after

[bpt/emacs.git] / lisp / startup.el

diff --git a/lisp/startup.el b/lisp/startup.el
index 095ef41..bddbeed 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -241,7 +241,7 @@ This is normally copied from `default-directory' when Emacs starts.")
     ("--cursor-color" 1 x-handle-switch cursor-color)
     ("--vertical-scroll-bars" 0 x-handle-switch vertical-scroll-bars t)
     ("--line-spacing" 1 x-handle-numeric-switch line-spacing)
-    ("--border-color" 1 x-handle-switch border-width)
+    ("--border-color" 1 x-handle-switch border-color)
     ("--smid" 1 x-handle-smid))
   "Alist of X Windows options.
 Each element has the form
@@ -1623,7 +1623,7 @@ normal otherwise."
                                 "-funcall"
                                 "-e"))  ; what the source used to say
                  (setq tem (intern (or argval (pop command-line-args-left))))
-                 (if (arrayp (symbol-function tem))
+                 (if (commandp tem)
                      (command-execute tem)
                    (funcall tem)))