some extensions are not ignored, and some non-ignored extensions are ignored

[rdiaz02]

some extensions are not ignored, and some non-ignored extensions are ignored

[rdiaz02]

Thanks a lot!!! Closing the issue as fixed.

[casouri]

Xeft uses file-name-extension to get the extension of a file, interestingly, it removes "backup version strings" at the end of an extension. so all the "tat~", "txt~" etc becomes "tat", "txt" when xeft compares them to xeft-ignore-extension.

Perhaps it's better to inhibit this "back version" cleaning, hmm...

[rdiaz02]

Thanks for your reply.

I assume most people will not want their backup files indexed. But I guess the ideal thing would be to allow using extensions without having the ~ removed. But this does not seem straightforward.

[rdiaz02]

How about changing the use of file-name-extension by this simple alternative:

(defun file-name-extension-no-rm-bckp (file)
  "Return FILENAME’s final \"extension\" without removing backup version strings."
  (substring
   (file-name-nondirectory file)
   (1+ (string-match "\\." (file-name-nondirectory file)))))

Nope, I just tried it and it breaks somewhere else. Sorry for the noise. My elisp is rather limited and I have no idea what is going on.

[rdiaz02]

This works for me. Define file-name-extension-no-rm-bckp as

(defun file-name-extension-no-rm-bckp (filename &optional period)
  "Return FILENAME's final \"extension\" including backup version strings.
The extension, in a file name, is the part that begins with the last `.',
except that a leading `.' of the file name, if there is one, doesn't count.
This function is the same as `file-name-extension', except it does not call
`file-name-sans-versions' (the function responsible of removing
any parts that indicate backup versions and
version strings.
Return nil for extensionless file names such as `foo'.
Return the empty string for file names such as `foo.' that end in a period.

By default, the returned value excludes the period that starts the
extension, but if the optional argument PERIOD is non-nil, the period
is included in the value, and in that case, if FILENAME has no
extension, the value is \"\"."
  (save-match-data
    (let ((file  (file-name-nondirectory filename)))
      (if (and (string-match "\\.[^.]*\\'" file)
	       (not (eq 0 (match-beginning 0))))
          (substring file (+ (match-beginning 0) (if period 0 1)))
	(if period
	    "")))))

and, then, in xeft-default-file-filter, instead of (not (member (file-name-extension file) we have (not (member (file-name-extension-no-rm-bckp file).

[casouri]

Thanks, I thought about this a bit and it's probably more intuitive if we don't remove the "version strings", so I added a function like you suggested.