From 932d08de61285ed8f181adb5eac595683e779ecd Mon Sep 17 00:00:00 2001 From: hrs Date: Mon, 3 Jun 2013 05:22:26 +0000 Subject: Fix an issue of (sgml-chage-element-name) in Emacs 24.3.1. --- editors/psgml/Makefile | 12 ++++-------- editors/psgml/files/patch-psgml-edit.el | 17 ++++++++++++++--- 2 files changed, 18 insertions(+), 11 deletions(-) (limited to 'editors') diff --git a/editors/psgml/Makefile b/editors/psgml/Makefile index 2efa4c08daa2..f101c8a6b9e6 100644 --- a/editors/psgml/Makefile +++ b/editors/psgml/Makefile @@ -1,13 +1,9 @@ -# New ports collection makefile for: psgml for emacs -# Date created: 23 January 1999 -# Whom: shige -# +# Created by: Shigeyuki Fukushima # $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@FreeBSD.org -COMMENT= A major mode for editing SGML and XML documents for ${EMACS_PORT_NAME} +MAINTAINER= hrs@FreeBSD.org +COMMENT= Major mode for editing SGML and XML documents for Emacs SUB_FILES= ${PSGML_STARTUPEL} SUB_LIST= PSGML_LISPDIR=${PSGML_LISPDIR} diff --git a/editors/psgml/files/patch-psgml-edit.el b/editors/psgml/files/patch-psgml-edit.el index aa59881510a6..ca7a11372bb8 100644 --- a/editors/psgml/files/patch-psgml-edit.el +++ b/editors/psgml/files/patch-psgml-edit.el @@ -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")) -- cgit