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 13:16:30 +01:00
parent 1ddadefd37
commit 7a90187fb1
1 changed files with 79 additions and 79 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-compat.el
View File

@ -57,9 +57,9 @@
(defalias 'outline-show-subtree 'show-subtree) (defalias 'outline-show-subtree 'show-subtree)
(defalias 'xref-find-definitions 'find-tag) (defalias 'xref-find-definitions 'find-tag)
(defalias 'format-message 'format) (defalias 'format-message 'format)
(defalias 'gui-get-selection 'x-get-selection) (defalias 'gui-get-selection 'x-get-selection))
;; From "files.el" (unless (fboundp 'directory-name-p)
(defun directory-name-p (name) (defun directory-name-p (name)
"Return non-nil if NAME ends with a directory separator character." "Return non-nil if NAME ends with a directory separator character."
(let ((len (length name)) (let ((len (length name))
@ -68,9 +68,9 @@
(setq lastc (aref name (1- len)))) (setq lastc (aref name (1- len))))
(or (= lastc ?/) (or (= lastc ?/)
(and (memq system-type '(windows-nt ms-dos)) (and (memq system-type '(windows-nt ms-dos))
(= lastc ?\\))))) (= lastc ?\\))))))
;; From "files.el" (unless (fboundp 'directory-files-recursively)
(defun directory-files-recursively (dir regexp &optional include-directories) (defun directory-files-recursively (dir regexp &optional include-directories)
"Return list of all files under DIR that have file names matching REGEXP. "Return list of all files under DIR that have file names matching REGEXP.
This function works recursively. Files are returned in \"depth first\" This function works recursively. Files are returned in \"depth first\"