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

org-compat: Silence byte-compiler

This commit is contained in:
Nicolas Goaziou 2016-12-22 01:29:03 +01:00
parent 2b9da32227
commit edc8d552cd
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/org-compat.el
View File

@ -59,6 +59,17 @@
(defalias 'format-message 'format)
(defalias 'gui-get-selection 'x-get-selection)
;; From "files.el"
(defsubst directory-name-p (name)
"Return non-nil if NAME ends with a directory separator character."
(let ((len (length name))
(lastc ?.))
(if (> len 0)
(setq lastc (aref name (1- len))))
(or (= lastc ?/)
(and (memq system-type '(windows-nt ms-dos))
(= lastc ?\\)))))
;; From "files.el"
(defun directory-files-recursively (dir regexp &optional include-directories)
"Return list of all files under DIR that have file names matching REGEXP.
@ -90,17 +101,6 @@ output directories whose names match REGEXP."
(push (expand-file-name file dir) files)))))
(nconc result (nreverse files)))))
;; From "files.el"
(defsubst directory-name-p (name)
"Return non-nil if NAME ends with a directory separator character."
(let ((len (length name))
(lastc ?.))
(if (> len 0)
(setq lastc (aref name (1- len))))
(or (= lastc ?/)
(and (memq system-type '(windows-nt ms-dos))
(= lastc ?\\)))))
;;; Obsolete aliases (remove them once the next major release is released).