org-compat: Silence byte-compiler
This commit is contained in:
parent
2b9da32227
commit
edc8d552cd
|
@ -59,6 +59,17 @@
|
||||||
(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"
|
||||||
|
(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"
|
;; From "files.el"
|
||||||
(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.
|
||||||
|
@ -90,17 +101,6 @@ output directories whose names match REGEXP."
|
||||||
(push (expand-file-name file dir) files)))))
|
(push (expand-file-name file dir) files)))))
|
||||||
(nconc result (nreverse 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).
|
;;; Obsolete aliases (remove them once the next major release is released).
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue