;;; Commentary:
;; Note to developers:
-;;
+;;
;; If old (v18) compiler is used, top-level macros are expanded at
;; *load-time*, not compile-time. So, you cannot use macros defined
;; in this file using `defmacro-maybe'. In addition, due to this
(autoload 'setenv "env"
"Set the value of the environment variable named VARIABLE to VALUE.
VARIABLE should be a string. VALUE is optional; if not provided or is
-`nil', the environment variable VARIABLE will be removed.
+`nil', the environment variable VARIABLE will be removed.
This function works by modifying `process-environment'."
t)
(defun remove-text-properties (start end properties &optional object))
+(defun get-text-property (position prop &optional object))
+
+(defun add-text-properties (start end properties &optional object))
+
+(defun put-text-property (start end property value &optional object))
+
+(defun next-property-change (position &optional object limit))
+
+(defun text-properties-at (position &optional object))
;;; @ file
;;;
\[poe-18.el; EMACS 19 emulating function]"
(si:directory-files directory full match))
-
+(defun file-executable-p (filename)
+ "Return t if FILENAME can be executed by you.
+For a directory, this means you can access files in that directory.
+\[poe-18.el; EMACS 19 emulating function]"
+ (if (file-exists-p filename)
+ (let ((process (start-process "test" nil "test" "-x" filename)))
+ (while (eq 'run (process-status process)))
+ (zerop (process-exit-status process)))))
+
+
;;; @ Display Features
;;;
(set-marker (nth posto attr-value) to))
(setcdr (nthcdr posfrom attr-value)
(nthcdr posto attr-value)))))
-
+
(defalias 'make-overlay 'cons)
(defun overlay-put (overlay prop value)