branch: master
commit ea3958f45cb468be0f11e95c24d09e10a389fee0
Author: Artur Malabarba <bruce.connor...@gmail.com>
Commit: Artur Malabarba <bruce.connor...@gmail.com>
Improve name discovery
---
nameless.el | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/nameless.el b/nameless.el
index a0d5177..f7b47ef 100644
--- a/nameless.el
+++ b/nameless.el
@@ -4,7 +4,7 @@
;; Author: Artur Malabarba <em...@endlessparentheses.com>
;; Keywords: convenience, lisp
-;; Version: 0.4
+;; Version: 0.4.1
;; Package-Requires: ((emacs "24.4"))
;; This program is free software; you can redistribute it and/or modify
@@ -227,7 +227,7 @@ Return S."
(ignore-errors (string-match "\\.el\\'" (lm-get-package-name))))
(progn
(unless nameless-current-name
- (setq nameless-current-name (replace-regexp-in-string
"\\.[^.]*\\'" "" (lm-get-package-name))))
+ (setq nameless-current-name (replace-regexp-in-string
"\\(-mode\\)?\\.[^.]*\\'" "" (lm-get-package-name))))
(add-function :filter-return (local
'filter-buffer-substring-function)
#'nameless--filter-string)
(apply #'nameless--add-keywords
