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. |