emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Check if buffer-file-name is nil before passing it as argument.

Browse source
This commit is contained in:
Sergey Trofimov 2018-01-31 06:41:51 +03:00
parent 1ab7301a1d
commit 0bb1635a38
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
core/autoload/help.el
View file

@ -34,8 +34,9 @@ from a `featurep!' or `require!' call or c) the module that the current file is
in."
(interactive
(let ((module
(cond ((string= (file-truename user-init-file)
(file-truename buffer-file-name))
(cond ((and buffer-file-name
(string= (file-truename user-init-file)
(file-truename buffer-file-name)))
(let* ((category
(save-excursion
(goto-char (line-end-position))
@ -67,7 +68,8 @@ in."
(let ((sexp (sexp-at-point)))
(when (memq (car-safe sexp) '(featurep! require!))
(format "%s %s" (nth 1 sexp) (nth 2 sexp))))))
((file-in-directory-p buffer-file-name doom-modules-dir)
((and buffer-file-name
(file-in-directory-p buffer-file-name doom-modules-dir))
(let ((module (doom-module-from-path buffer-file-name)))
(format "%s %s" (car module) (cdr module)))))))
(list (completing-read "Describe module: "