fix a possible (wrong-type-argument stringp nil) error

* lisp/org-compat.el: Make sure that file-name-directory is getting a
  stringp.  This avoids a possible "(wrong-type-argument stringp nil)"
  error when the library in question does not exist.
This commit is contained in:
Achim Gratz 2012-10-07 15:01:39 +02:00
parent b47a7d5125
commit d56ad98544
1 changed files with 1 additions and 1 deletions

View File

@ -327,7 +327,7 @@ Works on both Emacs and XEmacs."
(apply 'propertize string properties)))
(defmacro org-find-library-dir (library)
`(file-name-directory (locate-library ,library)))
`(file-name-directory (or (locate-library ,library) "")))
(defun org-count-lines (s)
"How many lines in string S?"