/[emacs]/emacs/lisp/progmodes/cc-styles.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/cc-styles.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by miles, Mon Sep 1 15:45:34 2003 UTC revision 1.31 by mast, Wed Sep 24 13:56:27 2003 UTC
# Line 484  variables." Line 484  variables."
484    ;;    ;;
485    ;; This function does not do any hidden buffer changes.    ;; This function does not do any hidden buffer changes.
486    
487      (interactive)
488    
489    (setq c-current-comment-prefix    (setq c-current-comment-prefix
490          (if (listp c-comment-prefix-regexp)          (if (listp c-comment-prefix-regexp)
491              (cdr-safe (or (assoc major-mode c-comment-prefix-regexp)              (cdr-safe (or (assoc major-mode c-comment-prefix-regexp)
492                            (assoc 'other c-comment-prefix-regexp)))                            (assoc 'other c-comment-prefix-regexp)))
493            c-comment-prefix-regexp))            c-comment-prefix-regexp))
494    
495    (let ((comment-line-prefix    (let ((comment-line-prefix
496           (concat "[ \t]*\\(" c-current-comment-prefix "\\)[ \t]*")))           (concat "[ \t]*\\(" c-current-comment-prefix "\\)[ \t]*")))
497    
498      (setq paragraph-start (concat comment-line-prefix      (setq paragraph-start (concat comment-line-prefix
499                                    c-paragraph-start                                    c-paragraph-start
500                                    "\\|"                                    "\\|"
# Line 508  variables." Line 512  variables."
512                                (default-value 'adaptive-fill-regexp)                                (default-value 'adaptive-fill-regexp)
513                                "\\)")                                "\\)")
514                      "")))                      "")))
515    
516      (when (boundp 'adaptive-fill-first-line-regexp)      (when (boundp 'adaptive-fill-first-line-regexp)
517        ;; XEmacs (20.x) adaptive fill mode doesn't have this.        ;; XEmacs (20.x) adaptive fill mode doesn't have this.
518        (make-local-variable 'adaptive-fill-first-line-regexp)        (make-local-variable 'adaptive-fill-first-line-regexp)

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26