my-emacs-d/lisp/utils.el

15 lines
303 B
EmacsLisp
Raw Normal View History

;;; utils --- Summary
;;; Commentary:
;;; Code:
(defun nil-or-list-of-strings-p (var)
"Return t if VAR is either nil or a list holding only strings."
(or (null var)
(not (null (delq nil
(mapcar (lambda (x) (and (stringp x) x)) var))))))
(provide 'utils)
;;; utils.el ends here