Mercurial > emacs
comparison lisp/progmodes/cc-styles.el @ 38167:728d49350f43
(c-set-style): Don't specify initial contents for completing-read.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 23 Jun 2001 16:22:04 +0000 |
| parents | 32a4317c6aa5 |
| children | 7a94f1c588c4 |
comparison
equal
deleted
inserted
replaced
| 38166:4e1eed1dee4e | 38167:728d49350f43 |
|---|---|
| 300 done internally by CC Mode, there's hardly ever a reason to use it." | 300 done internally by CC Mode, there's hardly ever a reason to use it." |
| 301 (interactive (list (let ((completion-ignore-case t) | 301 (interactive (list (let ((completion-ignore-case t) |
| 302 (prompt (format "Which %s indentation style? " | 302 (prompt (format "Which %s indentation style? " |
| 303 mode-name))) | 303 mode-name))) |
| 304 (completing-read prompt c-style-alist nil t | 304 (completing-read prompt c-style-alist nil t |
| 305 (cons c-indentation-style 0) | 305 nil |
| 306 'c-set-style-history)))) | 306 'c-set-style-history |
| 307 c-indentation-style)))) | |
| 307 (c-initialize-builtin-style) | 308 (c-initialize-builtin-style) |
| 308 (let ((vars (c-get-style-variables stylename nil))) | 309 (let ((vars (c-get-style-variables stylename nil))) |
| 309 (mapcar (lambda (elem) | 310 (mapcar (lambda (elem) |
| 310 (c-set-style-1 elem dont-override)) | 311 (c-set-style-1 elem dont-override)) |
| 311 ;; Need to go through the variables backwards when we | 312 ;; Need to go through the variables backwards when we |