diff options
| -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) |