Files
@ 67d56a04e33f
Branch filter:
Location: workgroups2/src/workgroups-compat.el - annotation
67d56a04e33f
1.1 KiB
text/x-elisp
commented 1 eval-when-compile
088605c05794 088605c05794 443938b472d4 443938b472d4 5752a7f91262 5752a7f91262 5752a7f91262 443938b472d4 088605c05794 443938b472d4 cbe967851cd9 cbe967851cd9 cbe967851cd9 5ddc53188715 5ddc53188715 5ddc53188715 5ddc53188715 cbe967851cd9 cbe967851cd9 5ddc53188715 cbe967851cd9 cbe967851cd9 cbe967851cd9 5ddc53188715 5ddc53188715 5ddc53188715 5ddc53188715 cbe967851cd9 cbe967851cd9 5ddc53188715 cbe967851cd9 cbe967851cd9 443938b472d4 443938b472d4 443938b472d4 088605c05794 | ;;; workgroups-compat --- some functions for different versions of Emacs
;;; Commentary:
;; flet (Temporary redifinition) command caused a lot of warnings and is
;; obsolete
;;
;; So we need to define something new.
;; I picked up dflet.el module
;;; Code:
;; Emacs 24.3+, use "cl-labels" instead of "labels"
(if (version< emacs-version "24.3")
(progn
(defalias 'wg-mapcar* 'mapcar*)
(defalias 'wg-union 'union)
(defalias 'wg-copy-list 'copy-list)
(defalias 'wg-find 'find)
(defalias 'wg-gensym 'gensym)
(defalias 'wg-position 'position)
(defalias 'wg-remove-if 'remove-if)
(defalias 'wg-remove-if-not 'remove-if-not)
(defalias 'wg-labels 'labels))
(progn
(defalias 'wg-mapcar* 'cl-mapcar)
(defalias 'wg-union 'cl-union)
(defalias 'wg-copy-list 'cl-copy-list)
(defalias 'wg-find 'cl-find)
(defalias 'wg-gensym 'cl-gensym)
(defalias 'wg-position 'cl-position)
(defalias 'wg-remove-if 'cl-remove-if)
(defalias 'wg-remove-if-not 'cl-remove-if-not)
(defalias 'wg-labels 'cl-labels)))
(provide 'workgroups-compat)
;;; workgroups-compat.el ends here
|