Mercurial > hg > xemacs-beta

comparison lisp/cc-mode/cc-styles.el @ 175:2d532a89d707 r20-3b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 929b76928fce
children 6075d714658b
comparison
equal deleted inserted replaced
174:bb3568571b84 175:2d532a89d707
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.12 10 ;; Version: 5.13
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
551 (defun c-initialize-builtin-style () 551 (defun c-initialize-builtin-style ()
552 ;; Dynamically append the default value of most variables. This is 552 ;; Dynamically append the default value of most variables. This is
553 ;; crucial because future c-set-style calls will always reset the 553 ;; crucial because future c-set-style calls will always reset the
554 ;; variables first to the `cc-mode' style before instituting the new 554 ;; variables first to the `cc-mode' style before instituting the new
555 ;; style. Only do this once! 555 ;; style. Only do this once!
556 (require 'cl)
557 (or (assoc "cc-mode" c-style-alist) 556 (or (assoc "cc-mode" c-style-alist)
558 (progn 557 (progn
559 (c-add-style "cc-mode" 558 (c-add-style "cc-mode"
560 (mapcar 559 (mapcar
561 (function 560 (function
562 (lambda (var) 561 (lambda (var)
563 (let ((val (symbol-value var))) 562 (let ((val (symbol-value var)))
564 (cons var (if (atom val) val 563 (cons var (if (atom val) val
565 (copy-tree val) 564 (copy-sequence val)
566 )) 565 ))
567 ))) 566 )))
568 '(c-backslash-column 567 '(c-backslash-column
569 c-basic-offset 568 c-basic-offset
570 c-cleanup-list 569 c-cleanup-list