From aa7adb2ada9a42f088c2edb234248d7e078d19c6 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 11 Aug 2006 13:56:50 +0000 Subject: [PATCH] (dns-mode): Use before-save-hook. --- lisp/ChangeLog | 4 ++++ lisp/textmodes/dns-mode.el | 10 ++++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a6ee985c65..7bb97d09b8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2006-08-11 Stefan Monnier + + * textmodes/dns-mode.el (dns-mode): Use before-save-hook. + 2006-08-11 Thien-Thi Nguyen * emacs-lisp/bindat.el (bindat-ip-to-string): diff --git a/lisp/textmodes/dns-mode.el b/lisp/textmodes/dns-mode.el index 78be0f888a..8ee69f03d7 100644 --- a/lisp/textmodes/dns-mode.el +++ b/lisp/textmodes/dns-mode.el @@ -147,7 +147,7 @@ Turning on DNS mode runs `dns-mode-hook'." (unless (featurep 'xemacs) (set (make-local-variable 'font-lock-defaults) '(dns-mode-font-lock-keywords nil nil ((?_ . "w"))))) - (add-hook 'write-contents-functions 'dns-mode-soa-maybe-increment-serial + (add-hook 'before-save-hook 'dns-mode-soa-maybe-increment-serial nil t) (easy-menu-add dns-mode-menu dns-mode-map)) @@ -211,15 +211,17 @@ Turning on DNS mode runs `dns-mode-hook'." (defun dns-mode-soa-maybe-increment-serial () "Increment SOA serial if needed. -This function is run from `write-contents-functions'." +This function is run from `before-save-hook'." (when (and (buffer-modified-p) dns-mode-soa-auto-increment-serial (or (eq dns-mode-soa-auto-increment-serial t) (y-or-n-p "Increment SOA serial? "))) - ;; We must return nil. If `dns-mode-soa-increment-serial' signals + ;; If `dns-mode-soa-increment-serial' signals ;; an error saving will fail but that probably means that the ;; serial should be fixed to comply with the RFC anyway! -rfr - (progn (dns-mode-soa-increment-serial) nil))) + (progn (dns-mode-soa-increment-serial) + ;; We return nil in case this is used in write-contents-functions. + nil))) ;;;###autoload(add-to-list 'auto-mode-alist '("\\.soa\\'" . dns-mode)) -- 2.39.2