From d0caf96afd910e06245cb61db39c97ae20a600d1 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Tue, 11 Oct 2011 09:07:27 +0200 Subject: [PATCH] Replace org-mode-p with usual (eq major-mode 'org-mode) check Additionally, replace one (or (org-mode-p) (derived-mode-p 'org-mode)) with (derived-mode-p 'org-mode) cause that is reflexive anyway (returns true, if the current mode is org-mode). Delete one check testing for org-mode or org derived mode --- org-contacts.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/org-contacts.el b/org-contacts.el index 4b21d26..74d68dc 100644 --- a/org-contacts.el +++ b/org-contacts.el @@ -157,7 +157,7 @@ If both match values are nil, return all contacts." (dolist (file (org-contacts-files)) (org-check-agenda-file file) (with-current-buffer (org-get-agenda-file-buffer file) - (unless (org-mode-p) + (unless (eq major-mode 'org-mode) (error "File %s is no in `org-mode'" file)) (org-scan-tags '(add-to-list 'markers (set-marker (make-marker) (point))) @@ -262,7 +262,7 @@ If both match values are nil, return all contacts." (when marker (switch-to-buffer-other-window (marker-buffer marker)) (goto-char marker) - (when (org-mode-p) + (when (eq major-mode 'org-mode) (org-show-context 'agenda) (save-excursion (and (outline-next-heading)