tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

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

Browse source 
* 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.
This commit is contained in:
Nicolas Goaziou 2016-10-29 10:02:27 +02:00
parent a94493f5a2
commit adfa7649e5
1 changed files with 0 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/org-compat.el
View file

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