Mercurial > emacs
comparison lisp/progmodes/f90.el @ 79220:7348eddedaed
(f90-indented-comment-re, f90-directive-comment-re)
(f90-break-delimiters): Mark these regexps as safe if they are strings.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 25 Oct 2007 04:00:42 +0000 |
| parents | 3aa5f50b34c0 |
| children | a1342e6e097a b210bba3f477 |
comparison
equal
deleted
inserted
replaced
| 79219:b892c8b20287 | 79220:7348eddedaed |
|---|---|
| 211 | 211 |
| 212 (defcustom f90-indented-comment-re "!" | 212 (defcustom f90-indented-comment-re "!" |
| 213 "*Regexp matching comments to indent as code." | 213 "*Regexp matching comments to indent as code." |
| 214 :type 'regexp | 214 :type 'regexp |
| 215 :group 'f90-indent) | 215 :group 'f90-indent) |
| 216 ;; FIXME are arbitrary regexps safe? Only used in looking-at. | 216 (put 'f90-indented-comment-re 'safe-local-variable 'stringp) |
| 217 | 217 |
| 218 (defcustom f90-directive-comment-re "!hpf\\$" | 218 (defcustom f90-directive-comment-re "!hpf\\$" |
| 219 "*Regexp of comment-like directive like \"!HPF\\\\$\", not to be indented." | 219 "*Regexp of comment-like directive like \"!HPF\\\\$\", not to be indented." |
| 220 :type 'regexp | 220 :type 'regexp |
| 221 :group 'f90-indent) | 221 :group 'f90-indent) |
| 222 ;; FIXME are arbitrary regexps safe? Only used in looking-at. | 222 (put 'f90-directive-comment-re 'safe-local-variable 'stringp) |
| 223 | 223 |
| 224 (defcustom f90-beginning-ampersand t | 224 (defcustom f90-beginning-ampersand t |
| 225 "*Non-nil gives automatic insertion of \& at start of continuation line." | 225 "*Non-nil gives automatic insertion of \& at start of continuation line." |
| 226 :type 'boolean | 226 :type 'boolean |
| 227 :group 'f90) | 227 :group 'f90) |
| 244 There are certain tokens comprised entirely of characters | 244 There are certain tokens comprised entirely of characters |
| 245 matching this regexp that should not be split, and these are | 245 matching this regexp that should not be split, and these are |
| 246 specified by the constant `f90-no-break-re'." | 246 specified by the constant `f90-no-break-re'." |
| 247 :type 'regexp | 247 :type 'regexp |
| 248 :group 'f90) | 248 :group 'f90) |
| 249 ;; FIXME are arbitrary regexps safe? Used in re-search-backward. | 249 (put 'f90-break-delimiters 'safe-local-variable 'stringp) |
| 250 | 250 |
| 251 (defcustom f90-break-before-delimiters t | 251 (defcustom f90-break-before-delimiters t |
| 252 "*Non-nil causes `f90-do-auto-fill' to break lines before delimiters." | 252 "*Non-nil causes `f90-do-auto-fill' to break lines before delimiters." |
| 253 :type 'boolean | 253 :type 'boolean |
| 254 :group 'f90) | 254 :group 'f90) |