Browse Source

org-compat: Assume `string-prefix-p' is defined

* lisp/org-compat.el: `string-prefix-p' was introduced in Emacs 24.1,
  which is below Org minimal expectations.  Only define
  `string-suffix-p' when necessary.
Nicolas Goaziou 8 years ago
parent
commit
adfa7649e5
1 changed files with 0 additions and 9 deletions
  1. 0 9
      lisp/org-compat.el

+ 0 - 9
lisp/org-compat.el

@@ -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