Files
@ c9e1713b76a2
Branch filter:
Location: workgroups2/src/workgroups-compat.el - annotation
c9e1713b76a2
1.1 KiB
text/x-elisp
fixed more CL package functions calls
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
|