Files
@ ee27475b139d
Branch filter:
Location: workgroups2/src/workgroups-compat.el - annotation
ee27475b139d
1.7 KiB
text/x-elisp
Save variables without a serialize function
If the only thing to do is to save some local variable you can use
(save . (var1 var2 ...))
instead of a serialize function
If the only thing to do is to save some local variable you can use
(save . (var1 var2 ...))
instead of a serialize function
088605c05794 088605c05794 443938b472d4 443938b472d4 5752a7f91262 5752a7f91262 5752a7f91262 443938b472d4 088605c05794 443938b472d4 cbe967851cd9 cbe967851cd9 cbe967851cd9 46f598969d61 d777aa1725d2 d777aa1725d2 5ddc53188715 5ddc53188715 5ddc53188715 cbe967851cd9 cbe967851cd9 d777aa1725d2 d777aa1725d2 d777aa1725d2 5ddc53188715 cbe967851cd9 d777aa1725d2 d777aa1725d2 d777aa1725d2 d777aa1725d2 cbe967851cd9 46f598969d61 d777aa1725d2 d777aa1725d2 5ddc53188715 5ddc53188715 5ddc53188715 cbe967851cd9 cbe967851cd9 d777aa1725d2 d777aa1725d2 d777aa1725d2 5ddc53188715 cbe967851cd9 d777aa1725d2 d777aa1725d2 d777aa1725d2 d777aa1725d2 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
(require 'cl)
(defalias 'wg-every 'every)
(defalias 'wg-mapcan 'mapcan)
(defalias 'wg-mapcar* 'mapcar*)
(defalias 'wg-copy-list 'copy-list)
(defalias 'wg-find 'find)
(defalias 'wg-gensym 'gensym)
(defalias 'wg-position 'position)
(defalias 'wg-reduce 'reduce)
(defalias 'wg-remove* 'remove*)
(defalias 'wg-remove-duplicates 'remove-duplicates)
(defalias 'wg-remove-if 'remove-if)
(defalias 'wg-remove-if-not 'remove-if-not)
(defalias 'wg-labels 'labels)
(defalias 'wg-some 'some)
(defalias 'wg-subsec 'subseq)
(defalias 'wg-union 'union))
(progn
(require 'cl-lib)
(defalias 'wg-every 'cl-every)
(defalias 'wg-mapcan 'cl-mapcan)
(defalias 'wg-mapcar* 'cl-mapcar)
(defalias 'wg-copy-list 'cl-copy-list)
(defalias 'wg-find 'cl-find)
(defalias 'wg-gensym 'cl-gensym)
(defalias 'wg-position 'cl-position)
(defalias 'wg-reduce 'cl-reduce)
(defalias 'wg-remove* 'cl-remove)
(defalias 'wg-remove-duplicates 'cl-remove-duplicates)
(defalias 'wg-remove-if 'cl-remove-if)
(defalias 'wg-remove-if-not 'cl-remove-if-not)
(defalias 'wg-labels 'cl-labels)
(defalias 'wg-some 'cl-some)
(defalias 'wg-subsec 'cl-subseq)
(defalias 'wg-union 'cl-union)))
(provide 'workgroups-compat)
;;; workgroups-compat.el ends here
|