aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/textmodes
diff options
context:
space:
mode:
authorReiner Steib2006-04-06 19:20:38 +0000
committerReiner Steib2006-04-06 19:20:38 +0000
commit3e45722587c5b1e9ccd306d073a1141e44a98263 (patch)
tree0735f29ab4af6d32b8004cac6a365645495701c4 /lisp/textmodes
parent077b72a485911714fc9b30fd7f76e8ffc6b3842e (diff)
downloademacs-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.el2
-rw-r--r--lisp/textmodes/paragraphs.el2
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
163to obtain the value of this variable." 163to 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."