Files
@ a1c97180ecd7
Branch filter:
Location: workgroups2/src/workgroups-compat.el - annotation
a1c97180ecd7
1.1 KiB
text/x-elisp
fixed constantly growing WG-file
Even when wg-restore-associated-buffers was nil workgroups file was
bigger and bigger. It's fixed now.
Even when wg-restore-associated-buffers was nil workgroups file was
bigger and bigger. It's fixed now.
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
|