Mercurial > hg > xemacs-beta

diff lisp/cc-mode/cc-styles.el @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents 489f57a838ef
children
line wrap: on
line diff
--- a/lisp/cc-mode/cc-styles.el	Mon Aug 13 10:01:24 2007 +0200
+++ b/lisp/cc-mode/cc-styles.el	Mon Aug 13 10:02:21 2007 +0200
@@ -7,7 +7,7 @@
 ;;             1985 Richard M. Stallman
 ;; Maintainer: cc-mode-help@python.org
 ;; Created:    22-Apr-1997 (split from cc-mode.el)
-;; Version:    5.18
+;; Version:    See cc-mode.el
 ;; Keywords:   c languages oop
 
 ;; This file is part of GNU Emacs.
@@ -572,7 +572,8 @@
   (or (assoc "cc-mode" c-style-alist)
       (let (copyfunc)
 	;; use built-in copy-tree if its there.
-	(if (fboundp 'copy-tree)
+	(if (and (fboundp 'copy-tree)
+		 (functionp (symbol-function 'copy-tree)))
 	    (setq copyfunc (symbol-function 'copy-tree))
 	  (setq copyfunc (lambda (tree)
 			    (if (consp tree)