浏览代码

Merge branch 'maint'

Bastien Guerry 11 年之前
父节点
当前提交
0b67b7e283
共有 1 个文件被更改,包括 6 次插入0 次删除
  1. 6 0
      lisp/org-compat.el

+ 6 - 0
lisp/org-compat.el

@@ -260,6 +260,12 @@ ignored in this case."
 		  next (+ from (* n inc)))))
 	(nreverse seq)))))
 
+;; `set-transient-map' is only in Emacs >= 24.4
+(defalias 'org-set-transient-map
+  (if (fboundp 'set-transient-map)
+      'set-transient-map
+    'set-temporary-overlay-map))
+
 ;; Region compatibility
 
 (defvar org-ignore-region nil