Issue Andersbakken#779. expand-file-name doesn't like nil. We don't n…

…eed to expand dired-directory or default-directory anyway.
dzhu · Sep 4, 2016 · cdee1e4 · cdee1e4
1 parent ad4dbcc
commit cdee1e4
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/rtags.el b/src/rtags.el
@@ -3110,10 +3110,10 @@ This includes both declarations and definitions."
 (defun rtags-buffer-status (&optional buffer)
   (when rtags-enabled
     (let* ((fn (buffer-file-name buffer))
-           (path (expand-file-name (cond (fn (and (file-exists-p fn) fn))
-                                         (dired-directory)
-                                         (default-directory)
-                                         (t nil)))))
+           (path (cond (fn (and (file-exists-p fn) (expand-file-name fn)))
+                       (dired-directory)
+                       (default-directory)
+                       (t nil))))
       (with-temp-buffer
         (rtags-call-rc :noerror t :silent-query t :path path "-T" path)
         (goto-char (point-min))