Files
@ 6c8be7498f88
Branch filter:
Location: workgroups2/src/workgroups-compat.el - annotation
6c8be7498f88
1.1 KiB
text/x-elisp
removed unnecessary lines, better header style
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
|