[Emacs-diffs] Changes to emacs/lisp/startup.el,v [EMACS_22_BASE]

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Juri Linkov <jurta>     08/02/12 23:29:19

Index: startup.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/startup.el,v
retrieving revision 1.436.2.10
retrieving revision 1.436.2.11
diff -u -b -r1.436.2.10 -r1.436.2.11
--- startup.el  7 Jan 2008 02:44:14 -0000       1.436.2.10
+++ startup.el  12 Feb 2008 23:29:19 -0000      1.436.2.11
@@ -1456,6 +1456,7 @@
     (with-current-buffer splash-buffer
       (let ((inhibit-read-only t))
        (erase-buffer)
+       (setq default-directory command-line-default-directory)
        (make-local-variable 'startup-screen-inhibit-startup-screen)
        (if pure-space-overflow
            (insert pure-space-overflow-message))
@@ -1554,6 +1555,7 @@
     (with-current-buffer (get-buffer-create "*About GNU Emacs*")
       (setq buffer-read-only nil)
       (erase-buffer)
+      (setq default-directory command-line-default-directory)
       (set (make-local-variable 'tab-width) 8)
       (if (not startup)
          (set (make-local-variable 'mode-line-format)