|
@@ -476,15 +476,6 @@ Implements `define-error' for older emacsen."
|
|
|
|
|
|
(unless (fboundp 'string-suffix-p)
|
|
|
;; From Emacs subr.el.
|
|
|
- (defun string-prefix-p (prefix string &optional ignore-case)
|
|
|
- "Return non-nil if PREFIX is a prefix of STRING.
|
|
|
-If IGNORE-CASE is non-nil, the comparison is done without paying attention
|
|
|
-to case differences."
|
|
|
- (let ((prefix-length (length prefix)))
|
|
|
- (if (> prefix-length (length string)) nil
|
|
|
- (eq t (compare-strings prefix 0 prefix-length string
|
|
|
- 0 prefix-length ignore-case)))))
|
|
|
-
|
|
|
(defun string-suffix-p (suffix string &optional ignore-case)
|
|
|
"Return non-nil if SUFFIX is a suffix of STRING.
|
|
|
If IGNORE-CASE is non-nil, the comparison is done without paying
|