]> code.delx.au - gnu-emacs-elpa/blobdiff - packages/nameless/nameless.el
Merge commit 'ea3958f45cb468be0f11e95c24d09e10a389fee0'
[gnu-emacs-elpa] / packages / nameless / nameless.el
index a0d517738aab928e9b5363c639b09ea4eea9fd4d..f7b47efd840d4c3e1cf4dc68bc4c35bdac471504 100644 (file)
@@ -4,7 +4,7 @@
 
 ;; Author: Artur Malabarba <emacs@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