Mercurial > hg > xemacs-beta
comparison lisp/cus-face.el @ 4535:69a1eda3da06
Distinguish vars and functions in #'symbol-file, #'describe-{function,variable}
lisp/ChangeLog addition:
2008-12-22 Aidan Kehoe <kehoea@parhasard.net>
* loadhist.el (symbol-file):
Add support for differentiating between variables and functions to
#'symbol-file.
* help.el (describe-function-1):
(describe-variable):
Call #'symbol-function explicitly with a 'defun or 'defvar
argument, depending on whether we're looking for a variable or a
function.
* cus-face.el (custom-declare-face):
Record information about the face in the load history; code taken
from GNU, pre-GPLv3 revision 1.45.
src/ChangeLog addition:
2008-12-22 Aidan Kehoe <kehoea@parhasard.net>
* symbols.c (Fdefine_function):
* eval.c (define_function):
Record explicitly that we're defining a function in the load
history, in both these files.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Mon, 22 Dec 2008 14:07:48 +0000 |
| parents | 049dc907c17a |
| children | 5502045ec510 |
comparison
equal
deleted
inserted
replaced
| 4534:f32c7f843961 | 4535:69a1eda3da06 |
|---|---|
| 48 (while frames | 48 (while frames |
| 49 (setq frame (car frames) | 49 (setq frame (car frames) |
| 50 frames (cdr frames)) | 50 frames (cdr frames)) |
| 51 (face-display-set face value frame '(custom))) | 51 (face-display-set face value frame '(custom))) |
| 52 (init-face-from-resources face))) | 52 (init-face-from-resources face))) |
| 53 ;; Don't record SPEC until we see it causes no errors. | |
| 54 (put face 'face-defface-spec spec) | |
| 55 (push (cons 'defface face) current-load-list) | |
| 53 (when (and doc (null (face-doc-string face))) | 56 (when (and doc (null (face-doc-string face))) |
| 54 (set-face-doc-string face doc)) | 57 (set-face-doc-string face doc)) |
| 55 (custom-handle-all-keywords face args 'custom-face) | 58 (custom-handle-all-keywords face args 'custom-face) |
| 56 (run-hooks 'custom-define-hook)) | 59 (run-hooks 'custom-define-hook)) |
| 57 face) | 60 face) |