[elpa] 01/01: packages/vlf/vlf.el: use derived-mode-p to check major mode.

[Andrey Kotlarski]

m00natic pushed a commit to branch master
in repository elpa.

commit d99d86e1ddd651b4b31e85a400d1b5f9bf4b811a
Author: Andrey Kotlarski <address@hidden>
Date:   Sun Feb 23 18:22:13 2014 +0200

    packages/vlf/vlf.el: use derived-mode-p to check major mode.
---
 packages/vlf/vlf.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/packages/vlf/vlf.el b/packages/vlf/vlf.el
index f90b770..2e3c9a1 100644
--- a/packages/vlf/vlf.el
+++ b/packages/vlf/vlf.el
@@ -128,7 +128,7 @@ values are: `write', `ediff', `occur', `search', 
`goto-line'."
          (remove-hook 'write-file-functions 'vlf-write t)
          (remove-hook 'after-change-major-mode-hook
                       'vlf-keep-alive t)
-         (let ((hexl (eq major-mode 'hexl-mode)))
+         (let ((hexl (derived-mode-p 'hexl-mode)))
            (if hexl (hexl-mode-exit))
            (let ((pos (+ vlf-start-pos (position-bytes (point)))))
              (vlf-with-undo-disabled
@@ -140,7 +140,7 @@ values are: `write', `ediff', `occur', `search', 
`goto-line'."
 
 (defun vlf-keep-alive ()
   "Keep `vlf-mode' on major mode change."
-  (if (eq major-mode 'hexl-mode)
+  (if (derived-mode-p 'hexl-mode)
       (set (make-local-variable 'revert-buffer-function) 'vlf-revert))
   (setq vlf-mode t))
 
@@ -209,7 +209,7 @@ When prefix argument is negative
 ;; hexl mode integration
 (defun vlf-hexl-before (&optional operation)
   "Temporarily disable `hexl-mode' for OPERATION."
-  (when (eq major-mode 'hexl-mode)
+  (when (derived-mode-p 'hexl-mode)
     (hexl-mode-exit)
     (set (make-local-variable 'vlf-restore-hexl-mode) operation)))