Mercurial > hg > xemacs-beta
comparison src/eval.c @ 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 | 8748a3f7ceb4 |
| children | 9dd42cb187ed |
comparison
equal
deleted
inserted
replaced
| 4534:f32c7f843961 | 4535:69a1eda3da06 |
|---|---|
| 1221 /************************************************************************/ | 1221 /************************************************************************/ |
| 1222 static Lisp_Object | 1222 static Lisp_Object |
| 1223 define_function (Lisp_Object name, Lisp_Object defn) | 1223 define_function (Lisp_Object name, Lisp_Object defn) |
| 1224 { | 1224 { |
| 1225 Ffset (name, defn); | 1225 Ffset (name, defn); |
| 1226 LOADHIST_ATTACH (name); | 1226 LOADHIST_ATTACH (Fcons (Qdefun, name)); |
| 1227 return name; | 1227 return name; |
| 1228 } | 1228 } |
| 1229 | 1229 |
| 1230 DEFUN ("defun", Fdefun, 2, UNEVALLED, 0, /* | 1230 DEFUN ("defun", Fdefun, 2, UNEVALLED, 0, /* |
| 1231 \(defun NAME ARGLIST [DOCSTRING] BODY...): define NAME as a function. | 1231 \(defun NAME ARGLIST [DOCSTRING] BODY...): define NAME as a function. |