diff options
Diffstat (limited to 'ennu.el')
-rw-r--r-- | ennu.el | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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) ""))) |