From edc8d552cd33afae9e71588f173dadbc2fa637d9 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Thu, 22 Dec 2016 01:29:03 +0100 Subject: [PATCH] org-compat: Silence byte-compiler --- lisp/org-compat.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index d1f83fec6..5a9fe107d 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -60,6 +60,17 @@ (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. This function works recursively. Files are returned in \"depth first\" @@ -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). -- 2.11.4.GIT