Browse files

add definition of cl-flet for compatibility with Emacs < 24.2

  • Loading branch information...
1 parent 873cac6 commit ded6481a11b50373b7e61ad8f190516c5cbba369 @alexott alexott committed Nov 9, 2013
Showing with 3 additions and 1 deletion.
  1. +3 −1 ecb-util.el
View
4 ecb-util.el
@@ -2354,8 +2354,10 @@ cons-cell \('test-inner-loop . \"test\")"
`(called-interactively-p ,kind)
`(interactive-p)))
-;; labels is obsolete as of Gnu Emacs 24.3
+;; labels & flet is obsolete as of Gnu Emacs 24.3, so we use them but provide
+;; compatibility with older versions
(unless (fboundp 'cl-labels) (fset 'cl-labels 'labels))
+(unless (fboundp 'cl-flet) (fset 'cl-flet 'flet))
;; redraw-modeline is an obsolete function as of Gnu Emacs 24.3
(defmacro ecb-redraw-modeline (&optional kind)

0 comments on commit ded6481

Please sign in to comment.