branch: elpa/drupal-mode
commit 46ad71de46d678323740144317c5bee37d159221
Author: Arne Jørgensen <[email protected]>
Commit: Arne Jørgensen <[email protected]>
Used `default-directory` as fallback if `buffer-file-name` us not set.
---
drupal/etags.el | 4 ++--
drupal/gtags.el | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/drupal/etags.el b/drupal/etags.el
index ee2251154a..6c23a7e216 100644
--- a/drupal/etags.el
+++ b/drupal/etags.el
@@ -1,6 +1,6 @@
;;; drupal/etags.el --- Drupal-mode support for etags
-;; Copyright (C) 2012, 2013 Arne Jørgensen
+;; Copyright (C) 2012, 2013, 2014 Arne Jørgensen
;; Author: Arne Jørgensen <[email protected]>
@@ -29,7 +29,7 @@
(defun drupal/etags-enable ()
"Setup TAGS file for etags if it exists."
- (let ((dir (locate-dominating-file (buffer-file-name) "TAGS")))
+ (let ((dir (locate-dominating-file (or buffer-file-name default-directory)
"TAGS")))
(when dir
(set (make-local-variable 'drupal/etags-rootdir) dir)
diff --git a/drupal/gtags.el b/drupal/gtags.el
index ee48eb6484..9e67276d75 100644
--- a/drupal/gtags.el
+++ b/drupal/gtags.el
@@ -1,6 +1,6 @@
;;; drupal/gtags.el --- Drupal-mode support for gtags
-;; Copyright (C) 2012, 2013 Arne Jørgensen
+;; Copyright (C) 2012, 2013, 2014 Arne Jørgensen
;; Author: Arne Jørgensen <[email protected]>
@@ -35,7 +35,7 @@ Include path to the executable if it is not in your $PATH.")
(defun drupal/gtags-enable ()
"Setup rootdir for gtags."
- (let ((dir (locate-dominating-file (buffer-file-name) "GTAGS")))
+ (let ((dir (locate-dominating-file (or buffer-file-name default-directory)
"GTAGS")))
(when dir
(set (make-local-variable 'gtags-rootdir) dir)
