emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/compat 10ef8f4 36/99: Declare string-trim-left and dire


From: ELPA Syncer
Subject: [elpa] externals/compat 10ef8f4 36/99: Declare string-trim-left and directory-name-p
Date: Sun, 17 Oct 2021 05:57:53 -0400 (EDT)

branch: externals/compat
commit 10ef8f4775f7ca4f5b77d5060d42aeb51d023e98
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Declare string-trim-left and directory-name-p
    
    Both variables are declared either in Emacs or compat.el, so they can
    be used safely in file-name-with-extension.
---
 compat-28.1.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compat-28.1.el b/compat-28.1.el
index 12735cf..b5d5d1f 100644
--- a/compat-28.1.el
+++ b/compat-28.1.el
@@ -337,8 +337,8 @@ as the new values of the bound variables in the recursive 
invocation."
 
 ;;;; Defined in files.el
 
-(declare-function compat--string-trim-left "compat-26.1"
-                  (string &optional regexp))
+(declare-function string-trim-left nil)
+(declare-function directory-name-p nil)
 (compat-defun file-name-with-extension (filename extension)
   "Set the EXTENSION of a FILENAME.
 The extension (in a file name) is the part that begins with the last \".\".
@@ -350,7 +350,7 @@ Errors if the FILENAME or EXTENSION are empty, or if the 
given
 FILENAME has the format of a directory.
 
 See also `file-name-sans-extension'."
-  (let ((extn (compat--string-trim-left extension "[.]")))
+  (let ((extn (string-trim-left extension "[.]")))
     (cond
      ((string= filename "")
       (error "Empty filename"))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]