diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-21 20:14:54 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-21 20:39:04 +0100 |
| commit | e53184c187631dcd2e784dbd4db541c63f028832 (patch) | |
| tree | 315d931babdf9d733f7e9a956d42c7e21e8399bc /compat-26.el | |
| parent | 5910cb96723ab554004463d0f946816434f58748 (diff) | |
compat-macs: Strict checking of :explicit
Diffstat (limited to 'compat-26.el')
| -rw-r--r-- | compat-26.el | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/compat-26.el b/compat-26.el index a06229d..ce23d9c 100644 --- a/compat-26.el +++ b/compat-26.el @@ -101,7 +101,7 @@ If you just want to check `major-mode', use `derived-mode-p'." (compat-defun alist-get (key alist &optional default remove testfn) ;; <compat-tests:alist-get> "Handle optional argument TESTFN." - :explicit t + :explicit "25.1" (ignore remove) (let ((x (if (not testfn) (assq key alist) @@ -358,20 +358,6 @@ The returned file name can be used directly as argument of `process-file', `start-file-process', or `shell-command'." (or (file-remote-p file 'localname) file)) -(compat-defun file-name-quoted-p (name &optional top) ;; <compat-tests:file-name-quoted-p> - "Handle optional argument TOP." - :explicit t - (let ((file-name-handler-alist (unless top file-name-handler-alist))) - (string-prefix-p "/:" (file-local-name name)))) - -(compat-defun file-name-quote (name &optional top) ;; <compat-tests:file-name-quote> - "Handle optional argument TOP." - :explicit t - (let ((file-name-handler-alist (unless top file-name-handler-alist))) - (if (string-prefix-p "/:" (file-local-name name)) - name - (concat (file-remote-p name) "/:" (file-local-name name))))) - (compat-defun temporary-file-directory () ;; <compat-tests:temporary-file-directory> "The directory for writing temporary files. In case of a remote `default-directory', this is a directory for |