diff lisp/subr.el @ 69830:196122ba0b05

* 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.

--- a/lisp/subr.el	Thu Apr 06 19:12:13 2006 +0000
+++ b/lisp/subr.el	Thu Apr 06 19:20:38 2006 +0000
@@ -1916,6 +1916,12 @@
 				 "\\" (substring argument end (1+ end)))
 		  start (1+ end)))
 	  (concat result (substring argument start)))))))
+
+(defun string-or-null-p (object)
+  "Return t if OBJECT is a string or nil.
+Otherwise, return nil."
+  (or (stringp object) (null object)))
+
 
 ;;;; Support for yanking and text properties.