|
@@ -31,21 +31,6 @@
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
-(eval-and-compile
|
|
|
- (unless (fboundp 'declare-function)
|
|
|
- (defmacro declare-function (fn file &optional _arglist _fileonly)
|
|
|
- `(autoload ',fn ,file)))
|
|
|
-
|
|
|
- (if (>= emacs-major-version 23)
|
|
|
- (defsubst org-char-to-string(c)
|
|
|
- "Defsubst to decode UTF-8 character values in emacs 23 and beyond."
|
|
|
- (char-to-string c))
|
|
|
- (defsubst org-char-to-string (c)
|
|
|
- "Defsubst to decode UTF-8 character values in emacs 22."
|
|
|
- (string (decode-char 'ucs c)))))
|
|
|
-
|
|
|
-(declare-function org-add-props "org-compat" (string plist &rest props))
|
|
|
-
|
|
|
(defmacro org-with-gensyms (symbols &rest body)
|
|
|
(declare (debug (sexp body)) (indent 1))
|
|
|
`(let ,(mapcar (lambda (s)
|