svn commit: r319754 - in head/editors/psgml: . files

[Hiroki Sato]

Author: hrs
Date: Mon Jun  3 05:22:26 2013
New Revision: 319754
URL: http://svnweb.freebsd.org/changeset/ports/319754

Log:
  Fix an issue of (sgml-chage-element-name) in Emacs 24.3.1.

Modified:
  head/editors/psgml/Makefile
  head/editors/psgml/files/patch-psgml-edit.el

Modified: head/editors/psgml/Makefile
==============================================================================
--- head/editors/psgml/Makefile	Mon Jun  3 04:26:24 2013	(r319753)
+++ head/editors/psgml/Makefile	Mon Jun  3 05:22:26 2013	(r319754)
@@ -1,13 +1,9 @@
-# New ports collection makefile for:	psgml for emacs
-# Date created:		23 January 1999
-# Whom:			shige
-#
+# Created by: Shigeyuki Fukushima <shige at FreeBSD.org>
 # $FreeBSD$
-#
 
 PORTNAME=	psgml
 PORTVERSION=	1.3.2
-PORTREVISION=	19
+PORTREVISION=	20
 CATEGORIES=	editors elisp
 MASTER_SITES=	SF/${PORTNAME}/ALPHA%20${PORTNAME}/${PORTVERSION}
 PKGNAMESUFFIX=	-${EMACS_PORT_NAME}
@@ -16,8 +12,8 @@ PATCH_SITES=	${MASTER_SITE_LOCAL}
 PATCH_SITE_SUBDIR=	hrs
 PATCHFILES=	psgml-symbol-conflict-050503.diff.gz
 
-MAINTAINER?=	hrs at FreeBSD.org
-COMMENT=	A major mode for editing SGML and XML documents for ${EMACS_PORT_NAME}
+MAINTAINER=	hrs at FreeBSD.org
+COMMENT=	Major mode for editing SGML and XML documents for Emacs
 
 SUB_FILES=	${PSGML_STARTUPEL}
 SUB_LIST=	PSGML_LISPDIR=${PSGML_LISPDIR}

Modified: head/editors/psgml/files/patch-psgml-edit.el
==============================================================================
--- head/editors/psgml/files/patch-psgml-edit.el	Mon Jun  3 04:26:24 2013	(r319753)
+++ head/editors/psgml/files/patch-psgml-edit.el	Mon Jun  3 05:22:26 2013	(r319754)
@@ -1,6 +1,17 @@
---- psgml-edit.el.orig	2012-08-04 11:53:07.000000000 +0900
-+++ psgml-edit.el	2012-08-04 11:55:00.000000000 +0900
-@@ -1870,24 +1870,28 @@
+--- psgml-edit.el.orig	2013-06-03 13:44:59.000000000 +0900
++++ psgml-edit.el	2013-06-03 14:13:25.000000000 +0900
+@@ -185,7 +185,9 @@
+     (goto-char (sgml-element-start element))
+     (delete-char (sgml-element-stag-len element))
+     (insert (sgml-delim "STAGO")
+-            (sgml-general-insert-case gi)
++            (if (symbolp gi)
++                (sgml-general-insert-case (symbol-name gi))
++              (sgml-general-insert-case gi))
+             tagc)
+     (let* ((newel (sgml-find-context-of (point)))
+ 	   (newattlist (sgml-element-attlist newel))
+@@ -1870,24 +1872,28 @@
     (invert
      (or (looking-at "&#\\([0-9]+\\)[;\n]?")
  	(error "No character reference after point"))