Mercurial > emacs
comparison lisp/subr.el @ 81338:62535fec6ee1
(user-emacs-directory): New defconst.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 13 Jun 2007 00:03:28 +0000 |
| parents | 954d7a5a16f6 |
| children | 2f3bcf8fe6fc 9c01792a3ce8 3619e7770f2e |
comparison
equal
deleted
inserted
replaced
| 81337:6bfd25f73683 | 81338:62535fec6ee1 |
|---|---|
| 2039 ;; The `assert' macro from the cl package signals | 2039 ;; The `assert' macro from the cl package signals |
| 2040 ;; `cl-assertion-failed' at runtime so always define it. | 2040 ;; `cl-assertion-failed' at runtime so always define it. |
| 2041 (put 'cl-assertion-failed 'error-conditions '(error)) | 2041 (put 'cl-assertion-failed 'error-conditions '(error)) |
| 2042 (put 'cl-assertion-failed 'error-message "Assertion failed") | 2042 (put 'cl-assertion-failed 'error-message "Assertion failed") |
| 2043 | 2043 |
| 2044 (defconst user-emacs-directory | |
| 2045 (if (eq system-type 'ms-dos) | |
| 2046 ;; MS-DOS cannot have initial dot. | |
| 2047 "~/_emacs.d/" | |
| 2048 "~/.emacs.d/") | |
| 2049 "Directory beneath which additional per-user Emacs-specific files are placed. | |
| 2050 Various programs in Emacs store information in this directory. | |
| 2051 Note that this should end with a directory separator.") | |
| 2052 | |
| 2044 | 2053 |
| 2045 ;;;; Misc. useful functions. | 2054 ;;;; Misc. useful functions. |
| 2046 | 2055 |
| 2047 (defun find-tag-default () | 2056 (defun find-tag-default () |
| 2048 "Determine default tag to search for, based on text at point. | 2057 "Determine default tag to search for, based on text at point. |