Commits

Anonymous committed 5b05332

* makesum.el (make-command-summary): Use with-displaying-help-buffer.
provide makesum.
My patch "make-command-summary",
<87zou97zou.fsf@dp50.ecc.u-tokyo.ac.jp>

  • Participants
  • Parent commits 0c4d2f4

Comments (0)

Files changed (2)

+2000-01-14  Yoshiki Hayashi  <t90553@mail.ecc.u-tokyo.ac.jp>
+
+	* makesum.el (make-command-summary): Use with-displaying-help-buffer.
+	provide makesum.
+
 1999-12-21  Yoshiki Hayashi  <t90553@mail.ecc.u-tokyo.ac.jp>
 
 	* bookmark.el (bookmark-completing-read): Use DEFAULT
 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 ;; 02111-1307, USA.
 
-;;; Synched up with: FSF 19.34.
+;;; Synched up with: FSF 20.5.
 
 ;;; Commentary:
 
     ;; This puts a description of bindings in a buffer called *Help*.
     (save-window-excursion
       (setq help-buffer (describe-bindings)))
-    (with-output-to-temp-buffer "*Summary*"
-      (save-excursion
-	(let ((cur-mode mode-name))
-	  (set-buffer standard-output)
-	  (erase-buffer)
-	  (insert-buffer-substring help-buffer)
-	  (goto-char (point-min))
-	  (delete-region (point) (progn (forward-line 1) (point)))
-	  (while (search-forward "         " nil t)
-	    (replace-match "  "))
-	  (goto-char (point-min))
-	  (while (search-forward "-@ " nil t)
-	    (replace-match "-SP"))
-	  (goto-char (point-min))
-	  (while (search-forward "  .. ~ " nil t)
-	    (replace-match "SP .. ~"))
-	  (goto-char (point-min))
-	  (while (search-forward "C-?" nil t)
-	    (replace-match "DEL"))
-	  (goto-char (point-min))
-	  (while (search-forward "C-i" nil t)
-	    (replace-match "TAB"))
-	  (goto-char (point-min))
-	  (if (re-search-forward "^Local Bindings:" nil t)
-	      (progn
-		(forward-char -1)
-		(insert " for " cur-mode " Mode")
-		(while (search-forward "??\n" nil t)
-		  (delete-region (point)
-				 (progn
-				   (forward-line -1)
-				   (point))))))
-	  (goto-char (point-min))
-	  (insert
-	   (cond ((featurep 'infodock) "InfoDock")
-		 ((featurep 'xemacs) "XEmacs")
-		 (t "Emacs")))
-	  (insert " command summary, " (substring (current-time-string) 0 10)
-		  ".\n")
-	  ;; Delete "key    binding" and underlining of dashes.
-	  (delete-region (point) (progn (forward-line 2) (point)))
-	  (forward-line 1)			;Skip blank line
-	  (while (not (eobp))
-	    (let ((beg (point)))
-	      (or (re-search-forward "^$" nil t)
-		  (goto-char (point-max)))
-	      (double-column beg (point))
-	      (forward-line 1)))
-	  (goto-char (point-min)))))
-    (message "Making command summary...done")))
+    (with-displaying-help-buffer
+     (lambda ()
+       (save-excursion
+	 (let ((cur-mode mode-name))
+	   (set-buffer standard-output)
+	   (erase-buffer)
+	   (insert-buffer-substring help-buffer)
+	   (goto-char (point-min))
+	   (delete-region (point) (progn (forward-line 1) (point)))
+	   (while (search-forward "         " nil t)
+	     (replace-match "  "))
+	   (goto-char (point-min))
+	   (while (search-forward "-@ " nil t)
+	     (replace-match "-SP"))
+	   (goto-char (point-min))
+	   (while (search-forward "  .. ~ " nil t)
+	     (replace-match "SP .. ~"))
+	   (goto-char (point-min))
+	   (while (search-forward "C-?" nil t)
+	     (replace-match "DEL"))
+	   (goto-char (point-min))
+	   (while (search-forward "C-i" nil t)
+	     (replace-match "TAB"))
+	   (goto-char (point-min))
+	   (if (re-search-forward "^Local Bindings:" nil t)
+	       (progn
+		 (forward-char -1)
+		 (insert " for " cur-mode " Mode")
+		 (while (search-forward "??\n" nil t)
+		   (delete-region (point)
+				  (progn
+				    (forward-line -1)
+				    (point))))))
+	   (goto-char (point-min))
+	   (insert
+	    (cond ((featurep 'infodock) "InfoDock")
+		  ((featurep 'xemacs) "XEmacs")
+		  (t "Emacs")))
+	   (insert " command summary, " (substring (current-time-string) 0 10)
+		   ".\n")
+	   ;; Delete "key    binding" and underlining of dashes.
+	   (delete-region (point) (progn (forward-line 2) (point)))
+	   (forward-line 1)		;Skip blank line
+	   (while (not (eobp))
+	     (let ((beg (point)))
+	       (or (re-search-forward "^$" nil t)
+		   (goto-char (point-max)))
+	       (double-column beg (point))
+	       (forward-line 1)))
+	   (goto-char (point-min))))
+       (message "Making command summary...done"))
+     "Command Summary")))
 
 (defun double-column (start end)
   (interactive "r")
 	(setq lines (cdr lines))))
     (goto-char (- (point-max) from-end))))
 
+(provide 'makesum)
+
 ;;; makesum.el ends here