Re: build fails (cc-vars.el)

[Sascha Wilde <wilde@sha-bang.de>]

[-- Attachment #1: Type: text/plain, Size: 281 bytes --]

David Reitter <david.reitter@gmail.com> wrote:
> Compilation of the 22 branch fails with:
>
> cc-vars.el:357:1:Error: Symbol's function definition is void: c-
> constant-symbol

I would suggest enclosing c-constant-symbol in eval-and-compile, see my
attached patch.

cheers
sascha

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 1850 bytes --]

diff -r 7d00ce09f1a8 lisp/progmodes/cc-vars.el
*** a/lisp/progmodes/cc-vars.el	Wed Jan 16 09:09:56 2008 +0100
--- b/lisp/progmodes/cc-vars.el	Wed Jan 16 12:08:07 2008 +0100
***************
*** 74,95 ****
        :value 'other))
  
  ;; The next defun will supersede c-const-symbol.
! (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
  enough.
  
  This returns a (const ....) structure, suitable for embedding
  within a customization type."
!   (or (symbolp sym) (error "c-constant-symbol: %s is not a symbol" sym))
!   (let* ((name (symbol-name sym))
! 	 (l (length name))
! 	 (disp (concat name ":" (make-string (- len l 1) ?\ ))))
!     `(const
!       :size ,len
!       :format ,disp
!       :value ,sym)))
  
  (define-widget 'c-const-symbol 'item
    "An uneditable lisp symbol.  This is obsolete -
--- 74,96 ----
        :value 'other))
  
  ;; The next defun will supersede c-const-symbol.
! (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
  enough.
  
  This returns a (const ....) structure, suitable for embedding
  within a customization type."
!     (or (symbolp sym) (error "c-constant-symbol: %s is not a symbol" sym))
!     (let* ((name (symbol-name sym))
! 	   (l (length name))
! 	   (disp (concat name ":" (make-string (- len l 1) ?\ ))))
!       `(const
! 	:size ,len
! 	:format ,disp
! 	:value ,sym))))
  
  (define-widget 'c-const-symbol 'item
    "An uneditable lisp symbol.  This is obsolete -


Diffs between working revision and workfile end here.

[-- Attachment #3: Type: text/plain, Size: 179 bytes --]


-- 
#!/bin/sh
n=.signature;mv $n $n~;(echo '#!/bin/sh';cat<<'X'|tee -a $n;echo "X")>>$n #VIRUS
n=.signature;mv $n $n~;(echo '#!/bin/sh';cat<<'X'|tee -a $n;echo "X")>>$n #VIRUS
X

[-- Attachment #4: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel