workgroups2 Files · src/workgroups-compat.el

Files @ bee9a5ef4f9e

Branch filter:

Location: workgroups2/src/workgroups-compat.el

bee9a5ef4f9e 1.1 KiB text/x-elisp Show Annotation Show as Raw Download as Raw

Sergey Pashinin

Rename remove-if to wg-remove-if, remove-if-not to wg-remove-if-not

;;; 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