master faa007cebf: Make ffap-file-suffix obsolete

[Stefan Kangas]

branch: master
commit faa007cebf4a50bc2f21f59fea1e0f0064948f84
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Make ffap-file-suffix obsolete
    
    * lisp/ffap.el (ffap-file-suffix): Make obsolete in favor of
    file-name-extension.  Update callers.
---
 lisp/ffap.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 9de0dd40d1..a6cb01a93b 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -505,6 +505,7 @@ Returned values:
 
 (defun ffap-file-suffix (file)
   "Return trailing `.foo' suffix of FILE, or nil if none."
+  (declare (obsolete file-name-extension "29.1"))
   (let ((pos (string-match "\\.[^./]*\\'" file)))
     (and pos (substring file pos nil))))
 
@@ -528,7 +529,7 @@ The optional NOMODIFY argument suppresses the extra search."
    ;; three reasons to suppress search:
    (nomodify nil)
    ((not (rassq 'jka-compr-handler file-name-handler-alist)) nil)
-   ((member (ffap-file-suffix file) ffap-compression-suffixes) nil)
+   ((member (file-name-extension file t) ffap-compression-suffixes) nil)
    (t                                  ; ok, do the search
     (let ((list ffap-compression-suffixes) try ret)
       (while list