diff options
| -rw-r--r-- | ennu.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ennu.el b/ennu.el index ae2dc17..3bd5f79 100644 --- a/ennu.el +++ b/ennu.el @@ -145,10 +145,10 @@ last form in BODY." (defun ennu-add-tongue-suffix (filename tongue) (pcase tongue ("en" filename) - (_ (format "%s.%s.%s" + (_ (format "%s.%s%s" (file-name-sans-extension filename) tongue - (file-name-extension filename))))) + (file-name-extension filename t))))) (defun ennu-index-filename (filename-prefix tongue &optional extension page-number) (let ((extension (if extension (concat "." extension) ""))) |