From 1f9ba7ce5f34534da638710c191afe049f7be115 Mon Sep 17 00:00:00 2001 From: Andrey Kotlarski Date: Sun, 23 Feb 2014 18:18:26 +0200 Subject: [PATCH] Use derived-mode-p. --- vlf.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/vlf.el b/vlf.el index f90b770..2e3c9a1 100644 --- a/vlf.el +++ b/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)))