From owner-freebsd-ports Wed Jun 17 05:11:07 1998 Return-Path: Received: (from majordom@localhost) by hub.freebsd.org (8.8.8/8.8.8) id FAA07692 for freebsd-ports-outgoing; Wed, 17 Jun 1998 05:11:07 -0700 (PDT) (envelope-from owner-freebsd-ports@FreeBSD.ORG) Received: from freefall.freebsd.org (freefall.FreeBSD.ORG [204.216.27.21]) by hub.freebsd.org (8.8.8/8.8.8) with ESMTP id FAA07685 for ; Wed, 17 Jun 1998 05:11:04 -0700 (PDT) (envelope-from gnats@FreeBSD.org) Received: (from gnats@localhost) by freefall.freebsd.org (8.8.8/8.8.5) id FAA01267; Wed, 17 Jun 1998 05:10:03 -0700 (PDT) Received: from server.pis (pis.toba-cmt.ac.jp [202.26.248.77]) by hub.freebsd.org (8.8.8/8.8.8) with SMTP id FAA07557 for ; Wed, 17 Jun 1998 05:10:20 -0700 (PDT) (envelope-from kiri@pis.toba-cmt.ac.jp) Received: (qmail 688 invoked from network); 17 Jun 1998 12:11:31 -0000 Received: from firewall.pis (HELO pis.toba-cmt.ac.jp) (192.168.1.1) by server.pis with SMTP; 17 Jun 1998 12:11:31 -0000 Received: (qmail 26592 invoked by uid 50); 17 Jun 1998 11:57:06 -0000 Message-Id: <19980617115706.26591.qmail@pis.toba-cmt.ac.jp> Date: 17 Jun 1998 11:57:06 -0000 From: kiri@pis.toba-cmt.ac.jp Reply-To: kiri@pis.toba-cmt.ac.jp To: FreeBSD-gnats-submit@FreeBSD.ORG X-Send-Pr-Version: 3.2 Subject: ports/6974: Update port: xemacs-mule-20.4 Sender: owner-freebsd-ports@FreeBSD.ORG Precedence: bulk X-Loop: FreeBSD.org >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 ++;; ++;; Modified 16-Jun-98 by Yoshishige Arai (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