emacs: add compatibility functions for emacs 23

[notmuch] / emacs / notmuch-company.el

diff --git a/emacs/notmuch-company.el b/emacs/notmuch-company.el
index 168315ff225fb68034979ad38cab1ebd976cde33..5d75c1455933e0548cb44fe47b26d718c4656a14 100644 (file)
--- a/emacs/notmuch-company.el
+++ b/emacs/notmuch-company.el
@@ -28,6 +28,7 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl))
 ;;; Code:
 
 (eval-when-compile (require 'cl))

+(require 'notmuch-lib)

 
 (defvar notmuch-company-last-prefix nil)
 (make-variable-buffer-local 'notmuch-company-last-prefix)
 
 (defvar notmuch-company-last-prefix nil)
 (make-variable-buffer-local 'notmuch-company-last-prefix)


@@ -53,7 +54,7 @@
   ;; internal completion) can still be accessed via standard company
   ;; functions, e.g., company-complete.
   (unless (eq notmuch-address-command 'internal)
   ;; internal completion) can still be accessed via standard company
   ;; functions, e.g., company-complete.
   (unless (eq notmuch-address-command 'internal)

-    (setq-local company-idle-delay nil)))
+    (notmuch-setq-local company-idle-delay nil)))

 
 ;;;###autoload
 (defun notmuch-company (command &optional arg &rest _ignore)
 
 ;;;###autoload
 (defun notmuch-company (command &optional arg &rest _ignore)