(define-key scribe-mode-map "[" 'scribe-parenthesis)
(define-key scribe-mode-map "{" 'scribe-parenthesis)
(define-key scribe-mode-map "<" 'scribe-parenthesis)
- (define-key scribe-mode-map "\^cc" 'scribe-chapter)
- (define-key scribe-mode-map "\^cS" 'scribe-section)
- (define-key scribe-mode-map "\^cs" 'scribe-subsection)
- (define-key scribe-mode-map "\^ce" 'scribe-insert-environment)
- (define-key scribe-mode-map "\^c\^e" 'scribe-bracket-region-be)
- (define-key scribe-mode-map "\^c[" 'scribe-begin)
- (define-key scribe-mode-map "\^c]" 'scribe-end)
- (define-key scribe-mode-map "\^ci" 'scribe-italicize-word)
- (define-key scribe-mode-map "\^cb" 'scribe-bold-word)
- (define-key scribe-mode-map "\^cu" 'scribe-underline-word))
+ (define-key scribe-mode-map "\C-c\C-c" 'scribe-chapter)
+ (define-key scribe-mode-map "\C-c\C-t" 'scribe-section)
+ (define-key scribe-mode-map "\C-c\C-s" 'scribe-subsection)
+ (define-key scribe-mode-map "\C-c\C-v" 'scribe-insert-environment)
+ (define-key scribe-mode-map "\C-c\C-e" 'scribe-bracket-region-be)
+ (define-key scribe-mode-map "\C-c[" 'scribe-begin)
+ (define-key scribe-mode-map "\C-c]" 'scribe-end)
+ (define-key scribe-mode-map "\C-c\C-i" 'scribe-italicize-word)
+ (define-key scribe-mode-map "\C-c\C-b" 'scribe-bold-word)
+ (define-key scribe-mode-map "\C-c\C-u" 'scribe-underline-word))
;;;###autoload
(defun scribe-mode ()
(make-local-variable 'comment-end)
(setq comment-end "]")
(make-local-variable 'paragraph-start)
- (setq paragraph-start (concat "\\(^[\n\f]\\)\\|\\(^@\\w+["
+ (setq paragraph-start (concat "\\([\n\f]\\)\\|\\(@\\w+["
scribe-open-parentheses
"].*["
scribe-close-parentheses
"]$\\)"))
(make-local-variable 'paragraph-separate)
(setq paragraph-separate (if scribe-fancy-paragraphs
- paragraph-start "^$"))
+ paragraph-start "$"))
(make-local-variable 'sentence-end)
(setq sentence-end "\\([.?!]\\|@:\\)[]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*")
(make-local-variable 'compile-command)