Mercurial > emacs
comparison lisp/startup.el @ 64630:4e0e85061ae3
(command-line): Fix typo. (From Ari Roponen.)
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Mon, 25 Jul 2005 14:21:04 +0000 |
| parents | 8855370e6a88 |
| children | af1c58687bdd |
comparison
equal
deleted
inserted
replaced
| 64629:26abdab91b97 | 64630:4e0e85061ae3 |
|---|---|
| 573 (defun command-line () | 573 (defun command-line () |
| 574 (setq command-line-default-directory default-directory) | 574 (setq command-line-default-directory default-directory) |
| 575 | 575 |
| 576 ;; Choose a reasonable location for temporary files. | 576 ;; Choose a reasonable location for temporary files. |
| 577 (custom-reevaluate-setting 'temporary-file-directory) | 577 (custom-reevaluate-setting 'temporary-file-directory) |
| 578 (custom-reevaluate-setting 'small-emporary-file-directory) | 578 (custom-reevaluate-setting 'small-temporary-file-directory) |
| 579 (custom-reevaluate-setting 'auto-save-file-name-transforms) | 579 (custom-reevaluate-setting 'auto-save-file-name-transforms) |
| 580 | 580 |
| 581 ;; See if we should import version-control from the environment variable. | 581 ;; See if we should import version-control from the environment variable. |
| 582 (let ((vc (getenv "VERSION_CONTROL"))) | 582 (let ((vc (getenv "VERSION_CONTROL"))) |
| 583 (cond ((eq vc nil)) ;don't do anything if not set | 583 (cond ((eq vc nil)) ;don't do anything if not set |