Mercurial > emacs

comparison lisp/progmodes/cc-styles.el @ 20147:481af10544cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(c-initialize-builtin-style): Only use copy-tree if it is funcall-able. This is the right patch, and was given by Erik Naggum <erik@naggum.no>
author Karl Heuer <kwzh@gnu.org>
date Thu, 23 Oct 1997 07:50:28 +0000
parents d8732d6e6aeb
children 8e64bd5b1b5f
comparison
equal deleted inserted replaced
20146:d7ea5d1fa91b 20147:481af10544cc
5 ;; Authors: 1992-1997 Barry A. Warsaw 5 ;; Authors: 1992-1997 Barry A. Warsaw
6 ;; 1987 Dave Detlefs and Stewart Clamen 6 ;; 1987 Dave Detlefs and Stewart Clamen
7 ;; 1985 Richard M. Stallman 7 ;; 1985 Richard M. Stallman
8 ;; Maintainer: cc-mode-help@python.org 8 ;; Maintainer: cc-mode-help@python.org
9 ;; Created: 22-Apr-1997 (split from cc-mode.el) 9 ;; Created: 22-Apr-1997 (split from cc-mode.el)
10 ;; Version: 5.18 10 ;; Version: See cc-mode.el
11 ;; Keywords: c languages oop 11 ;; Keywords: c languages oop
12 12
13 ;; This file is part of GNU Emacs. 13 ;; This file is part of GNU Emacs.
14 14
15 ;; GNU Emacs is free software; you can redistribute it and/or modify 15 ;; GNU Emacs is free software; you can redistribute it and/or modify
570 ;; variables first to the `cc-mode' style before instituting the new 570 ;; variables first to the `cc-mode' style before instituting the new
571 ;; style. Only do this once! 571 ;; style. Only do this once!
572 (or (assoc "cc-mode" c-style-alist) 572 (or (assoc "cc-mode" c-style-alist)
573 (let (copyfunc) 573 (let (copyfunc)
574 ;; use built-in copy-tree if its there. 574 ;; use built-in copy-tree if its there.
575 (if (fboundp 'copy-tree) 575 (if (and (fboundp 'copy-tree)
576 (functionp (symbol-function 'copy-tree)))
576 (setq copyfunc (symbol-function 'copy-tree)) 577 (setq copyfunc (symbol-function 'copy-tree))
577 (setq copyfunc (lambda (tree) 578 (setq copyfunc (lambda (tree)
578 (if (consp tree) 579 (if (consp tree)
579 (cons (funcall copyfunc (car tree)) 580 (cons (funcall copyfunc (car tree))
580 (funcall copyfunc (cdr tree))) 581 (funcall copyfunc (cdr tree)))