1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(cond
((>= emacs-major-version 24)
;; this must be macro. If implemented as a function, its behavior
;; is changed.
(defmacro mew-called-interactively-p ()
'(called-interactively-p 'interactive)))
(t
(defalias 'mew-called-interactively-p 'called-interactively-p)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Suppressing warnings at compile
;;;
(defmacro mew-no-warning-defvar (var-name)
`(unless (boundp ',var-name) (defvar ,var-name nil)))
(defmacro mew-no-warning-defun (func-name)
`(unless (fboundp ',func-name) (defun ,func-name(&rest _args) nil)))
(provide 'mew-env0)
|
