From 4221aa359e8e32738d502515e1f63be58dc702d5 Mon Sep 17 00:00:00 2001
From: Pierre Courtieu
Date: Wed, 10 Mar 2004 18:20:14 +0000
Subject: holes-short-doc now is in view-mode.

---
 generic/holes.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/generic/holes.el b/generic/holes.el
index 5b05a418..cd559eb2 100644
--- a/generic/holes.el
+++ b/generic/holes.el
@@ -112,13 +112,18 @@ is), which is annoying.
 
 ")
   (goto-char (point-min))
+  (if (string-match "NU Emacs" (emacs-version))
+		(view-buffer (current-buffer) (function (lambda (b) (bury-buffer))))
+	 (view-mode nil (function (lambda (b) (bury-buffer))))
+	 )
   )
 
 
-;Pierre: should do almost what it does in xemacs
+
 (cond
  ((string-match "NU Emacs" (emacs-version))
   (transient-mark-mode 1)  ; for holes created by a simple click
+;Pierre: should do almost what region-exists-p does in xemacs
   (defmacro hole-region-exists-p nil
 	 "Returns t if the mark is active, nil otherwise."
 	 `(not (eq mark-active nil))
-- 
cgit v1.2.3