Mercurial > emacs
comparison lisp/progmodes/c-mode.el @ 10630:3e851e5cab1f
(c-mode-map): No binding for c-fill-paragraph
(c-fill-paragraph): Return t.
(c-mode): Put c-fill-paragraph in fill-paragraph-function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 02 Feb 1995 09:48:01 +0000 |
| parents | eeeae6ef626e |
| children | d08b63758c1a |
comparison
equal
deleted
inserted
replaced
| 10629:2c9bdcab7052 | 10630:3e851e5cab1f |
|---|---|
| 43 (define-key c-mode-map ":" 'electric-c-terminator) | 43 (define-key c-mode-map ":" 'electric-c-terminator) |
| 44 (define-key c-mode-map "\e\C-h" 'mark-c-function) | 44 (define-key c-mode-map "\e\C-h" 'mark-c-function) |
| 45 (define-key c-mode-map "\e\C-q" 'indent-c-exp) | 45 (define-key c-mode-map "\e\C-q" 'indent-c-exp) |
| 46 (define-key c-mode-map "\ea" 'c-beginning-of-statement) | 46 (define-key c-mode-map "\ea" 'c-beginning-of-statement) |
| 47 (define-key c-mode-map "\ee" 'c-end-of-statement) | 47 (define-key c-mode-map "\ee" 'c-end-of-statement) |
| 48 (define-key c-mode-map "\eq" 'c-fill-paragraph) | |
| 49 (define-key c-mode-map "\C-c\C-n" 'c-forward-conditional) | 48 (define-key c-mode-map "\C-c\C-n" 'c-forward-conditional) |
| 50 (define-key c-mode-map "\C-c\C-p" 'c-backward-conditional) | 49 (define-key c-mode-map "\C-c\C-p" 'c-backward-conditional) |
| 51 (define-key c-mode-map "\C-c\C-u" 'c-up-conditional) | 50 (define-key c-mode-map "\C-c\C-u" 'c-up-conditional) |
| 52 (define-key c-mode-map "\177" 'backward-delete-char-untabify) | 51 (define-key c-mode-map "\177" 'backward-delete-char-untabify) |
| 53 (define-key c-mode-map "\t" 'c-indent-command) | 52 (define-key c-mode-map "\t" 'c-indent-command) |
| 224 (setq paragraph-start (concat "^$\\|" page-delimiter)) | 223 (setq paragraph-start (concat "^$\\|" page-delimiter)) |
| 225 (make-local-variable 'paragraph-separate) | 224 (make-local-variable 'paragraph-separate) |
| 226 (setq paragraph-separate paragraph-start) | 225 (setq paragraph-separate paragraph-start) |
| 227 (make-local-variable 'paragraph-ignore-fill-prefix) | 226 (make-local-variable 'paragraph-ignore-fill-prefix) |
| 228 (setq paragraph-ignore-fill-prefix t) | 227 (setq paragraph-ignore-fill-prefix t) |
| 228 (make-local-variable 'fill-paragraph-function) | |
| 229 (setq fill-paragraph-function 'c-fill-paragraph) | |
| 229 (make-local-variable 'indent-line-function) | 230 (make-local-variable 'indent-line-function) |
| 230 (setq indent-line-function 'c-indent-line) | 231 (setq indent-line-function 'c-indent-line) |
| 231 (make-local-variable 'indent-region-function) | 232 (make-local-variable 'indent-region-function) |
| 232 (setq indent-region-function 'c-indent-region) | 233 (setq indent-region-function 'c-indent-region) |
| 233 (make-local-variable 'require-final-newline) | 234 (make-local-variable 'require-final-newline) |
| 474 (if (looking-at "[ \t]*\\*/") | 475 (if (looking-at "[ \t]*\\*/") |
| 475 (let ((fill-column (+ fill-column 9999))) | 476 (let ((fill-column (+ fill-column 9999))) |
| 476 (forward-line -1) | 477 (forward-line -1) |
| 477 (fill-region-as-paragraph (point) (point-max))))))) | 478 (fill-region-as-paragraph (point) (point-max))))))) |
| 478 ;; Outside of comments: do ordinary filling. | 479 ;; Outside of comments: do ordinary filling. |
| 479 (fill-paragraph arg))))) | 480 (fill-paragraph arg))) |
| 481 t)) | |
| 480 | 482 |
| 481 (defun electric-c-brace (arg) | 483 (defun electric-c-brace (arg) |
| 482 "Insert character and correct line's indentation." | 484 "Insert character and correct line's indentation." |
| 483 (interactive "P") | 485 (interactive "P") |
| 484 (let (insertpos) | 486 (let (insertpos) |