holes-short-doc now is in view-mode.

1 files changed, 6 insertions, 1 deletions

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))