(c-constant-symbol): Put this defun inside an eval-and-compile, so as to
permit byte-compiling (e.g. in bootstrap).
This commit is contained in:
parent
5bc93211c9
commit
3a3995f843
1 changed files with 3 additions and 2 deletions
|
@ -74,7 +74,8 @@ Useful as last item in a `choice' widget."
|
|||
:value 'other))
|
||||
|
||||
;; The next defun will supersede c-const-symbol.
|
||||
(defun c-constant-symbol (sym len)
|
||||
(eval-and-compile
|
||||
(defun c-constant-symbol (sym len)
|
||||
"Create an uneditable symbol for customization buffers.
|
||||
SYM is the name of the symbol, LEN the length of the field (in
|
||||
characters) the symbol will be displayed in. LEN must be big
|
||||
|
@ -89,7 +90,7 @@ within a customization type."
|
|||
`(const
|
||||
:size ,len
|
||||
:format ,disp
|
||||
:value ,sym)))
|
||||
:value ,sym))))
|
||||
|
||||
(define-widget 'c-const-symbol 'item
|
||||
"An uneditable lisp symbol. This is obsolete -
|
||||
|
|
Loading…
Add table
Reference in a new issue