Mercurial > emacs

comparison lisp/textmodes/scribe.el @ 10893:e9418d324071

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(scribe-mode): Remove ^ from paragraph-start & paragraph-separate.
author Boris Goldowsky <boris@gnu.org>
date Thu, 02 Mar 1995 15:41:16 +0000
parents b2e37a1d2347
children 966c6625a963
comparison
equal deleted inserted replaced
10892:0e6ae3605c92 10893:e9418d324071
128 (make-local-variable 'comment-column) 128 (make-local-variable 'comment-column)
129 (setq comment-column 0) 129 (setq comment-column 0)
130 (make-local-variable 'comment-end) 130 (make-local-variable 'comment-end)
131 (setq comment-end "]") 131 (setq comment-end "]")
132 (make-local-variable 'paragraph-start) 132 (make-local-variable 'paragraph-start)
133 (setq paragraph-start (concat "\\(^[\n\f]\\)\\|\\(^@\\w+[" 133 (setq paragraph-start (concat "\\([\n\f]\\)\\|\\(@\\w+["
134 scribe-open-parentheses 134 scribe-open-parentheses
135 "].*[" 135 "].*["
136 scribe-close-parentheses 136 scribe-close-parentheses
137 "]$\\)")) 137 "]$\\)"))
138 (make-local-variable 'paragraph-separate) 138 (make-local-variable 'paragraph-separate)
139 (setq paragraph-separate (if scribe-fancy-paragraphs 139 (setq paragraph-separate (if scribe-fancy-paragraphs
140 paragraph-start "^$")) 140 paragraph-start "$"))
141 (make-local-variable 'sentence-end) 141 (make-local-variable 'sentence-end)
142 (setq sentence-end "\\([.?!]\\|@:\\)[]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") 142 (setq sentence-end "\\([.?!]\\|@:\\)[]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*")
143 (make-local-variable 'compile-command) 143 (make-local-variable 'compile-command)
144 (setq compile-command (concat "scribe " (buffer-file-name))) 144 (setq compile-command (concat "scribe " (buffer-file-name)))
145 (set-syntax-table scribe-mode-syntax-table) 145 (set-syntax-table scribe-mode-syntax-table)