From xemacs-m  Sun Sep 21 09:12:11 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id JAA13165
	for <xemacs-beta@xemacs.org>; Sun, 21 Sep 1997 09:12:08 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.7/8.8.7/Debian/GNU) id HAA26688;
	Sun, 21 Sep 1997 07:12:15 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: [patch] `man.el'
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Sun_Sep_21_07:12:08_1997-1"
Content-Transfer-Encoding: 7bit
From: karlheg@inetarena.com (Karl M. Hegbloom)
Date: 21 Sep 1997 07:12:09 -0700
Message-ID: <87g1qy92o6.fsf@bittersweet.inetarena.com>
Lines: 111

--Multipart_Sun_Sep_21_07:12:08_1997-1
Content-Type: text/plain; charset=US-ASCII

 I would still like to fix the key bindings... Perhaps today I will
 get a copy of Emacs 20.1 and see how they've done it.  Our `man.el'
 is using `view-mode' for man pages, and pressing `l' doesn't do what
 it should.

 I'd like it to work sort of like `info' or a WWW browser.  Maybe
 pushing `l' to go to the last one visited, and when you get to the
 bottom of the stack, it could loop to the top again.

 I think I can spend all of this week on XEmacs...  I'll try and get
 `man' working right, and to read more of lispref.  :-)

 This patch will make your man buffers be prefixed with "Man: ", so
 the regexp can match them...  Will you send me the config that you
 use to make man pages come up in their own frame?  I want that too,
 and would like it if `info' opened in a 80x43 frame, rather than a
 default sized one. (I've set a default size of 100x43).

 With the prefix, rather than stars around the name, manual pages get
 their own section under the Buffers menu, which is what I was going
 for when I got rid of the stars the first time.  Could customize
 buffers get a prefix, rather than stars, so that they get a submenu
 under Buffers too?


8<---------------------...
1997-09-21  Karl M. Hegbloom  <karlheg@inetarena.com>

	* packages/man.el: Got rid of the `stars', and hard coded a prefix
 		  of "Man: " for manual-entry buffers.

Index: lisp/packages/man.el
===================================================================
RCS file: /usr/local/cvsroot/xemacs-20/lisp/packages/man.el,v
retrieving revision 1.1.1.1.2.1
diff -u -r1.1.1.1.2.1 man.el
--- man.el	1997/09/20 07:33:08	1.1.1.1.2.1
+++ man.el	1997/09/21 13:57:39
@@ -70,13 +70,6 @@
   :type 'boolean
   :group 'man)
 
-(defcustom Manual-buffers-have-stars nil
-  "*When T, manual page buffers are always named like *man*.
-Otherwise, they are not if `buffers-menu-submenus-for-groups-p' is T,
-so that Manual-mode buffers will have their own submenu."
-  :type 'boolean
-  :group 'man)
-
 ;;Here is information on RosettaMan, from Neal.Becker@comsat.com (Neal Becker):
 
 ;;RosettaMan is a filter for UNIX manual pages.  It takes as input man
@@ -206,18 +199,10 @@
     (if (equal section "-k")
 	(setq apropos-mode t))
 
-    (let ((bufname (flet
-		       ((maybe-star ()
-		          (if (or Manual-buffers-have-stars
-				  (not buffers-menu-submenus-for-groups-p))
-			      "*"
-			    "")))
-		     (if apropos-mode
-			 (concat (maybe-star) "man apropos " topic (maybe-star))
-		       (concat (maybe-star)
-			       topic
-			       (if section (concat "(" section ")") "")
-			       (maybe-star)))))
+    (let ((bufname (concat "Man"
+			   (when apropos-mode " apropos")
+			   ": " topic
+			   (when section (concat "(" section ")") "")))
 	  (temp-buffer-show-function 
 	   (cond ((eq 't Manual-buffer-view-mode)
 		  'view-buffer)
@@ -650,18 +635,10 @@
 		  (setq manpage (buffer-substring (match-beginning 1)
 						  (match-end 1)))
 		(setq manpage "???"))
-	      (flet
-		  ((maybe-star ()
-		     (if (or Manual-buffers-have-stars
-			     (not buffers-menu-submenus-for-groups-p))
-			 "*"
-		       "")))
-		(setq buffer
-		      (rename-buffer
-		       (generate-new-buffer-name (concat (maybe-star)
-							 manpage
-							 (maybe-star))))))
-	      (setq buffer-file-name nil)
+	      (setq buffer
+		    (rename-buffer (generate-new-buffer-name
+				    (concat "Man: " manpage)))
+		    buffer-file-name nil)
 	      (goto-char (point-min))
 	      (insert (format "%s\n" buf-name))
 	      (goto-char (point-min))

--Multipart_Sun_Sep_21_07:12:08_1997-1
Content-Type: text/plain; charset=US-ASCII

mailto:karlheg@inetarena.com (Karl M. Hegbloom)
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3.1+hamm  Linux pre-2.0.31-9+select+QNX  AMD K5 PR-133

--Multipart_Sun_Sep_21_07:12:08_1997-1--

