Date: 17 Jun 1998 11:57:06 -0000 From: kiri@pis.toba-cmt.ac.jp To: FreeBSD-gnats-submit@FreeBSD.ORG Subject: ports/6974: Update port: xemacs-mule-20.4 Message-ID: <19980617115706.26591.qmail@pis.toba-cmt.ac.jp>
next in thread | raw e-mail | index | archive | help
>Number: 6974
>Category: ports
>Synopsis: Update port: xemacs-mule-20.4.
>Confidential: no
>Severity: non-critical
>Priority: medium
>Responsible: freebsd-ports
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: change-request
>Submitter-Id: current-users
>Arrival-Date: Wed Jun 17 05:10:02 PDT 1998
>Last-Modified:
>Originator: Kazuhiko Kiriyama
>Organization:
Toba National College of Maritime Technology.
Department of Electronic Mechanical Engineering
>Release: FreeBSD 3.0-CURRENT i386
>Environment:
>Description:
I've made UPDATE ports xemacs-mule-20.4 which is fixed bug of
man.el with japanese output.
Update files is
[Update] :
editors/xemacs-mule-common/patches/patch-ad
I put the diff from current in "Fix:".
>How-To-Repeat:
>Fix:
diff -urN ../../current/editors/xemacs-mule-common/patches/patch-ad ./patches/patch-ad
--- ../../current/editors/xemacs-mule-common/patches/patch-ad Sun May 31 21:37:51 1998
+++ ./patches/patch-ad Wed Jun 17 09:54:17 1998
@@ -1,15 +1,16 @@
--- lisp/packages/man.el.orig Thu Feb 19 10:58:51 1998
-+++ lisp/packages/man.el Thu Apr 23 08:44:22 1998
-@@ -29,6 +29,8 @@
++++ lisp/packages/man.el Wed Jun 17 09:24:42 1998
+@@ -29,6 +29,9 @@
;;
;; [ older changelog entries removed, since they're all about code that
;; I've deleted. ]
+;;
-+;; Modified 2-Apr-98 by Yoshishige Arai <ryo2@on.rim.or.jp>
++;;
++;; Modified 16-Jun-98 by Yoshishige Arai <ryo2@on.rim.or.jp>
(defgroup man nil
"Browse Unix manual pages"
-@@ -242,8 +244,9 @@
+@@ -242,8 +245,9 @@
(substring args-string (match-end 0))))
(message "%s (running...)" args-string)
@@ -21,7 +22,7 @@
(if (< (buffer-size) 200)
(progn
(kill-buffer (current-buffer))
-@@ -326,6 +329,39 @@
+@@ -326,6 +330,39 @@
(Manual-delete-char 2)
(forward-char 1))
(set-extent-face (make-extent s (point)) 'man-italic)))
@@ -61,31 +62,53 @@
;;
;; turn overstriking into bold
;;
-@@ -344,9 +380,13 @@
+@@ -344,9 +381,13 @@
(set-extent-face (make-extent s (point)) 'man-bold)))
;;
;; hack bullets: o^H+ --> +
-+ ;; ryo2 modified
- (goto-char (point-min))
- (while (search-forward "\b" nil t)
+- (goto-char (point-min))
+- (while (search-forward "\b" nil t)
- (Manual-delete-char -2))
-+ (if (equal "\b" (buffer-substring (match-end 0) (+ 1 (match-end 0))))
-+ (Manual-delete-char -1)
-+ (Manual-delete-char -2)
-+ ))
++ ;; ryo2 modified
++ (goto-char (point-min))
++ (while (search-forward "\b" nil t)
++ (if (equal "\b" (buffer-substring (match-end 0) (+ 1 (match-end 0))))
++ (Manual-delete-char -1)
++ (Manual-delete-char -2)
++ ))
(if (> (buffer-size) 100) ; minor kludge
(Manual-nuke-nroff-bs-footers))
-@@ -474,8 +514,6 @@
- (if (> (- p (point)) 4)
- (delete-region (+ 2 (point)) p)
- (delete-region (1+ (point)) p))
+@@ -455,28 +496,6 @@
+ (setq p (point))
+ (skip-chars-forward "\n")
+ (delete-region p (point))
+- (and (looking-at "[^\n]+\n\n?\n?\n?")
+- (delete-region (match-beginning 0) (match-end 0)))
+- ;;
+- ;; Next lose the footer, and the 3 blank lines after, and before it.
+- ;; But don't lose the last footer of the manual entry; that contains
+- ;; the "last change" date, so it's not completely uninteresting.
+- ;; (Actually lose all blank lines before it; sh(1) needs this.)
+- ;;
+- (skip-chars-backward "\n")
+- (beginning-of-line)
+- (if (null (cdr pages))
+- nil
+- (and (looking-at "[^\n]+\n\n?\n?\n?")
+- (delete-region (match-beginning 0) (match-end 0))))
+- (setq p (point))
+- (skip-chars-backward "\n")
+- (if (> (- p (point)) 4)
+- (delete-region (+ 2 (point)) p)
+- (delete-region (1+ (point)) p))
-; (and (looking-at "\n\n?\n?")
-; (delete-region (match-beginning 0) (match-end 0)))
-
+-
(setq pages (cdr pages)))
;;
-@@ -516,25 +554,6 @@
+ ;; Now nuke the extra blank lines at the beginning and end.
+@@ -516,25 +535,6 @@
splitp nil)
(goto-char s)
>Audit-Trail:
>Unformatted:
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-ports" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?19980617115706.26591.qmail>