[Emacs-diffs] Changes to emacs/lisp/subr.el

[Reiner Steib]

Index: emacs/lisp/subr.el
diff -u emacs/lisp/subr.el:1.501 emacs/lisp/subr.el:1.502
--- emacs/lisp/subr.el:1.501    Mon Feb 27 02:01:08 2006
+++ emacs/lisp/subr.el  Thu Apr  6 19:20:38 2006
@@ -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.