[nongnu] elpa/vm 7e60631248 4/6: Remove support for `buffer-flush-undo` (Emacs<19.23)

[ELPA Syncer]

branch: elpa/vm
commit 7e606312481cc0ccf232e43911cb22dcb6fc7e45
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    Remove support for `buffer-flush-undo` (Emacs<19.23)
---
 lisp/vm-message-history.el |  7 +------
 lisp/vm-mime.el            |  7 +------
 lisp/vm-summary.el         |  7 +------
 lisp/vm.el                 | 14 ++------------
 4 files changed, 5 insertions(+), 30 deletions(-)

diff --git a/lisp/vm-message-history.el b/lisp/vm-message-history.el
index bc8b8f7d74..5e1f8ed267 100644
--- a/lisp/vm-message-history.el
+++ b/lisp/vm-message-history.el
@@ -212,12 +212,7 @@ With prefix ARG, select the ARG'th next message."
     (abbrev-mode 0)
     (auto-fill-mode 0)
     (vm-fsfemacs-nonmule-display-8bit-chars)
-    (if (fboundp 'buffer-disable-undo)
-        (buffer-disable-undo (current-buffer))
-      ;; obfuscation to make the v19 compiler not whine
-      ;; about obsolete functions.
-      (let ((x 'buffer-flush-undo))
-        (funcall x (current-buffer))))
+    (buffer-disable-undo (current-buffer))
     (setq vm-mail-buffer folder
           mode-name "VM Message History"
           major-mode 'vm-message-history-mode
diff --git a/lisp/vm-mime.el b/lisp/vm-mime.el
index 5ea56c5f00..449f00f838 100644
--- a/lisp/vm-mime.el
+++ b/lisp/vm-mime.el
@@ -1565,12 +1565,7 @@ a string denoting the folder name."
                   (concat name " Presentation"))))
     (save-excursion
       (set-buffer pres-buf)
-      (if (fboundp 'buffer-disable-undo)
-         (buffer-disable-undo (current-buffer))
-       ;; obfuscation to make the v19 compiler not whine
-       ;; about obsolete functions.
-       (let ((x 'buffer-flush-undo))
-         (funcall x (current-buffer))))
+      (buffer-disable-undo (current-buffer))
       (setq mode-name "VM Presentation"
            major-mode 'vm-presentation-mode
            vm-message-pointer (list nil)
diff --git a/lisp/vm-summary.el b/lisp/vm-summary.el
index e0c44df18b..40126f59d8 100644
--- a/lisp/vm-summary.el
+++ b/lisp/vm-summary.el
@@ -189,12 +189,7 @@ mandatory."
          ;;   (setq bufer-face-mode-face vm-summary-face)
          ;;   (buffer-face-mode 1))
          (vm-fsfemacs-nonmule-display-8bit-chars)
-         (if (fboundp 'buffer-disable-undo)
-             (buffer-disable-undo (current-buffer))
-           ;; obfuscation to make the v19 compiler not whine
-           ;; about obsolete functions.
-           (let ((x 'buffer-flush-undo))
-             (funcall x (current-buffer))))
+         (buffer-disable-undo (current-buffer))
          (setq vm-mail-buffer b
                vm-folder-read-only read-only)
          (vm-summary-mode-internal))
diff --git a/lisp/vm.el b/lisp/vm.el
index bc4113094e..2e045f73c8 100644
--- a/lisp/vm.el
+++ b/lisp/vm.el
@@ -1050,12 +1050,7 @@ virtual folder buffer."
                                default-directory))
     (setq first-time (not (eq major-mode 'vm-virtual-mode)))
     (when first-time
-      (if (fboundp 'buffer-disable-undo)
-         (buffer-disable-undo (current-buffer))
-       ;; obfuscation to make the v19 compiler not whine
-       ;; about obsolete functions.
-       (let ((x 'buffer-flush-undo))
-         (funcall x (current-buffer))))
+      (buffer-disable-undo (current-buffer))
       (abbrev-mode 0)
       (auto-fill-mode 0)
       (vm-fsfemacs-nonmule-display-8bit-chars)
@@ -1277,12 +1272,7 @@ summary buffer to select a folder."
          (abbrev-mode 0)
          (auto-fill-mode 0)
          (vm-fsfemacs-nonmule-display-8bit-chars)
-         (if (fboundp 'buffer-disable-undo)
-             (buffer-disable-undo (current-buffer))
-           ;; obfuscation to make the v19 compiler not whine
-           ;; about obsolete functions.
-           (let ((x 'buffer-flush-undo))
-             (funcall x (current-buffer))))
+         (buffer-disable-undo (current-buffer))
          (vm-folders-summary-mode-internal))
        (vm-make-folders-summary-associative-hashes)
        (vm-do-folders-summary)))