Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
202:61eefc8fc970 203:850242ba4a81
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)))