diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-15 23:50:04 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-15 23:50:08 +0100 |
| commit | 45ae45a6d17ba389db32f38cc5dae33ee9a3d24b (patch) | |
| tree | d778c9a5f41d9c4069cf991c4baeca46ea953e46 | |
| parent | 3d17be568187ab4f9f8dc258c679cc2e6cc90f3c (diff) | |
Fix compat-tests links
| -rw-r--r-- | compat-28.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compat-28.el b/compat-28.el index f969828..8219633 100644 --- a/compat-28.el +++ b/compat-28.el @@ -51,7 +51,7 @@ issues are inherited." (let ((case-fold-search nil)) (string-match (regexp-quote needle) haystack start-pos)))) -(compat-defun length= (sequence length) ;; <compat-tests:length=> +(compat-defun length= (sequence length) ;; [[compat-tests:length=]] "Returns non-nil if SEQUENCE has a length equal to LENGTH." (cond ((null sequence) (zerop length)) @@ -63,7 +63,7 @@ issues are inherited." (= (length sequence) length)) ((signal 'wrong-type-argument sequence)))) -(compat-defun length< (sequence length) ;; <compat-tests:length<> +(compat-defun length< (sequence length) ;; [[compat-tests:length<]] "Returns non-nil if SEQUENCE is shorter than LENGTH." (cond ((null sequence) (not (zerop length))) @@ -73,7 +73,7 @@ issues are inherited." (< (length sequence) length)) ((signal 'wrong-type-argument sequence)))) -(compat-defun length> (sequence length) ;; <compat-tests:length>> +(compat-defun length> (sequence length) ;; [[compat-tests:length>]] "Returns non-nil if SEQUENCE is longer than LENGTH." (cond ((listp sequence) |