branch: elpa/drupal-mode
commit 2b71509ac3ecc74009114a43300ea5973c477210
Author: Arne Jørgensen <[email protected]>
Commit: Arne Jørgensen <[email protected]>
Used `(buffer-name)` as fallback if `buffer-file-name` us not set.
---
drupal-mode.el | 4 ++--
drupal/autoinsert.el | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/drupal-mode.el b/drupal-mode.el
index e1ac5f1162..0de6255e7a 100644
--- a/drupal-mode.el
+++ b/drupal-mode.el
@@ -1,6 +1,6 @@
;;; drupal-mode.el --- Advanced minor mode for Drupal development
-;; Copyright (C) 2012, 2013 Arne Jørgensen
+;; Copyright (C) 2012, 2013, 2014 Arne Jørgensen
;; Author: Arne Jørgensen <[email protected]>
;; URL: https://github.com/arnested/drupal-mode
@@ -676,7 +676,7 @@ Used in `drupal-insert-hook' and `drupal-insert-function'."
drupal-module
;; Otherwise fall back to a very naive
;; way of guessing the module name.
- (file-name-nondirectory
(file-name-sans-extension (buffer-file-name)))))))
+ (file-name-nondirectory
(file-name-sans-extension (or buffer-file-name (buffer-name))))))))
(if (called-interactively-p 'any)
(insert name)
name)))
diff --git a/drupal/autoinsert.el b/drupal/autoinsert.el
index f9fe01d3f4..e86143f020 100644
--- a/drupal/autoinsert.el
+++ b/drupal/autoinsert.el
@@ -1,6 +1,6 @@
;;; drupal/autoinsert.el --- Drupal-mode support for `auto-insert-mode'
-;; Copyright (C) 2012, 2013 Arne Jørgensen
+;; Copyright (C) 2012, 2013, 2014 Arne Jørgensen
;; Author: Arne Jørgensen <[email protected]>
;; Keywords:
@@ -34,7 +34,7 @@
(define-skeleton drupal/autoinsert-insert-info-skeleton
"Drupal info file skeleton."
nil
- '(setq v1 (file-name-nondirectory (file-name-sans-extension
(buffer-file-name))))
+ '(setq v1 (file-name-nondirectory (file-name-sans-extension (or
buffer-file-name (buffer-name))))
'(setq v2 (if (drupal-major-version) (>= (string-to-number
(drupal-major-version)) 7) t))
"name = " @ - (upcase-initials (replace-regexp-in-string "[-_\\.]+" " " v1))
\n
"description = " @ \n
