diff options
| author | Reiner Steib | 2006-04-06 19:20:38 +0000 |
|---|---|---|
| committer | Reiner Steib | 2006-04-06 19:20:38 +0000 |
| commit | 3e45722587c5b1e9ccd306d073a1141e44a98263 (patch) | |
| tree | 0735f29ab4af6d32b8004cac6a365645495701c4 /lisp/textmodes | |
| parent | 077b72a485911714fc9b30fd7f76e8ffc6b3842e (diff) | |
| download | emacs-3e45722587c5b1e9ccd306d073a1141e44a98263.tar.gz emacs-3e45722587c5b1e9ccd306d073a1141e44a98263.zip | |
* subr.el (string-or-null-p): New function.
* textmodes/paragraphs.el (sentence-end): Use string-or-null-p.
* textmodes/ispell.el (ispell-local-dictionary): Use
string-or-null-p.
* files.el: Update comment about safe-local-variable declarations.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/ispell.el | 2 | ||||
| -rw-r--r-- | lisp/textmodes/paragraphs.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 8a08f9dd078..da77508dce3 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el | |||
| @@ -462,7 +462,7 @@ is automatically set when defined in the file with either | |||
| 462 | :type '(choice string | 462 | :type '(choice string |
| 463 | (const :tag "default" nil)) | 463 | (const :tag "default" nil)) |
| 464 | :group 'ispell) | 464 | :group 'ispell) |
| 465 | ;;;###autoload(put 'ispell-local-dictionary 'safe-local-variable (lambda (a) (or (stringp a) (null a)))) | 465 | ;;;###autoload(put 'ispell-local-dictionary 'safe-local-variable 'string-or-null-p) |
| 466 | 466 | ||
| 467 | (make-variable-buffer-local 'ispell-local-dictionary) | 467 | (make-variable-buffer-local 'ispell-local-dictionary) |
| 468 | 468 | ||
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index c62f337e456..6693be4e0c9 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el | |||
| @@ -163,7 +163,7 @@ function `sentence-end'. You should always use this function | |||
| 163 | to obtain the value of this variable." | 163 | to obtain the value of this variable." |
| 164 | :group 'paragraphs | 164 | :group 'paragraphs |
| 165 | :type '(choice regexp (const :tag "Use default value" nil))) | 165 | :type '(choice regexp (const :tag "Use default value" nil))) |
| 166 | ;;;###autoload(put 'sentence-end 'safe-local-variable (lambda (a) (or (stringp a) (null a)))) | 166 | ;;;###autoload(put 'sentence-end 'safe-local-variable 'string-or-null-p) |
| 167 | 167 | ||
| 168 | (defcustom sentence-end-base "[.?!][]\"'$B!I$,1r}(B)}]*" | 168 | (defcustom sentence-end-base "[.?!][]\"'$B!I$,1r}(B)}]*" |
| 169 | "*Regexp matching the basic end of a sentence, not including following space." | 169 | "*Regexp matching the basic end of a sentence, not including following space." |