Re: to use browse-yank.el

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>]

From: Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx> 曰く
Subject: Re: to use browse-yank.el
Message-ID: <19991006111342L.shirai@xxxxxxxxxxxxxxxxxxxxxxxxx>
Date: Wed, 06 Oct 1999 11:13:42 +0900

白井> というわけで、このままだと、ゴミメールなので、browse-yank.el を
白井> 改造したものをお付けします。

kill-ring の内容に read-only な属性がついたものがあると破綻して
しまったので、その bug fix (と ＋α) です。

# ほとんど意地になってしまったのだけど、なんか、こういうのって他
# にもありそうだなぁ。

-- 
白井秀行＠これでとりあえず満足。:-)



--- browse-yank.el.orig	Wed Oct  6 10:51:59 1999
+++ browse-yank.el	Wed Oct  6 19:49:26 1999
@@ -6,7 +6,7 @@
 ;; Written by Robert Mende  mende@xxxxxxxxxxx
 ;;
 ;; Modified by Hideyuki SHIRAI <shirai@xxxxxxxxxxxxxxxxxxx>
-;;                 Time-stamp: <10/06/1999 10:51 shirai>
+;;                 Time-stamp: <10/06/1999 19:49 shirai>
 
 ;; suggested binding:  M-y
 ;; exsample: put your ~/.emacs
@@ -36,6 +36,9 @@
 (defvar browse-yank-buffer "*Browse Yank*"
   "*Name of the buffer in which the kill-ring is browsed.")
 
+(defvar browse-yank-hook nil
+  "*Hook called in Browse Yank mode.")
+
 ;; internal value. Don't modify.
 (defvar browse-yank-barf-message "Can't browse-yank an empty kill-ring.")
 (defvar browse-yank-orig-window-config nil)
@@ -152,11 +155,14 @@
 (defun browse-yank-display (browse-yank-yank-to-display)
   "Display the kill-ring ELEMENT in the browse-yank buffer, updating
 the mode-line."
-  (let ((buffer-read-only nil))
+  (let ((buffer-read-only nil)
+	(inhibit-read-only t))
     (erase-buffer)
+    (insert (nth browse-yank-yank-to-display kill-ring))
     (goto-char (point-min))
-    (insert (nth browse-yank-yank-to-display
-		 kill-ring))
+    (if (re-search-forward "[^ \t\n]" nil t)
+	()
+      (message "White space buffer."))
     (goto-char (point-min))
     (setq mode-line-process (concat ": "
 				    browse-yank-cur-txt