[elpa] master ea3958f 2/3: Improve name discovery

[Artur Malabarba]

branch: master
commit ea3958f45cb468be0f11e95c24d09e10a389fee0
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    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 <address@hidden>
 ;; 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