mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2025-01-23 09:10:43 +00:00
Code Issues Releases Activity

Fix old syntaxes deprecated in emacs24.

Browse Source
This commit is contained in:
Hiroki Sato 2012-08-04 03:08:11 +00:00
parent 47ebbc6d92
commit 7acc8ffb5c
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=301981
5 changed files with 496 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
editors/psgml/Makefile
View File

@ -7,7 +7,7 @@
PORTNAME= psgml
PORTVERSION= 1.3.2
PORTREVISION= 16
PORTREVISION= 17
CATEGORIES= editors elisp
MASTER_SITES= SF/${PORTNAME}/ALPHA%20${PORTNAME}/${PORTVERSION}
PKGNAMESUFFIX= -${EMACS_PORT_NAME}
@ -28,6 +28,8 @@ CONFIGURE_ARGS= --lispdir=${PSGML_LISPDIR}
CONFIGURE_ENV= EMACS=${EMACS_CMD}
USE_EMACS= yes
POSTPATCHES= ${FILESDIR}/post-patch-*
INFO= psgml psgml-api
PSGML_STARTUPEL= psgml-startup.el
@ -43,6 +45,9 @@ PLIST_SUB+= XEMACS="@comment " \
NON_XEMACS=""
.endif
post-patch:
cd ${PATCH_WRKSRC} && ${CAT} ${POSTPATCHES} | ${PATCH}
post-install:
cd ${WRKSRC} && ${MAKE} install-info
${INSTALL_DATA} ${WRKDIR}/${PSGML_STARTUPEL} \

61
editors/psgml/files/patch-psgml-dtd.el Normal file
View File

@ -0,0 +1,61 @@
--- psgml-dtd.el.orig 2005-03-06 01:23:40.000000000 +0900
+++ psgml-dtd.el 2012-08-04 11:56:25.000000000 +0900
@@ -93,12 +93,12 @@
(defmacro sgml-for-all-final-states (s dfa &rest forms)
"For all final states S in DFA do FORMS.
Syntax: var dfa-expr &body forms"
- (` (let ((L-states (sgml-some-states-of (, dfa)))
- (, s))
+ `(let ((L-states (sgml-some-states-of ,dfa))
+ ,s)
(while L-states
- (when (sgml-state-final-p (setq (, s) (car L-states)))
- (,@ forms))
- (setq L-states (cdr L-states))))))
+ (when (sgml-state-final-p (setq ,s (car L-states)))
+ ,@forms)
+ (setq L-states (cdr L-states)))))
(put 'sgml-for-all-final-states 'lisp-indent-hook 2)
(put 'sgml-for-all-final-states 'edebug-form-hook '(symbolp &rest form))
@@ -217,7 +217,7 @@
(defun sgml-make-pcdata ()
(sgml-make-* (sgml-make-primitive-content-token sgml-pcdata-token)))
-(defun sgml-reduce-, (l)
+(defun sgml-reduce-\, (l)
(while (cdr l)
(setcar (cdr l)
(sgml-make-conc (car l) (cadr l)))
@@ -279,7 +279,7 @@
(sgml-parse-delim "CRO" (digit nmstart))
(sgml-parse-delim "CRO" (digit)))
(prog1 (if (sgml-is-delim "NULL" digit)
- (string-to-int (sgml-check-nametoken))
+ (string-to-number (sgml-check-nametoken))
(let ((spec (sgml-check-name)))
(or (cdr (assoc spec '(("RE" . 10)
("RS" . 1)
@@ -336,7 +336,7 @@
(defsubst sgml-parse-connector ()
(sgml-skip-ps)
(cond ((sgml-parse-delim "SEQ")
- (function sgml-reduce-,))
+ (function sgml-reduce-\,))
((sgml-parse-delim "OR")
(function sgml-reduce-|))
((sgml-parse-delim "AND")
@@ -884,10 +884,10 @@
FORMS should produce the binary coding of element in VAR."
(let ((var (car loop-c))
(seq (cadr loop-c)))
- (` (let ((seq (, seq)))
+ `(let ((seq ,seq))
(sgml-code-number (length seq))
- (loop for (, var) in seq
- do (,@ body))))))
+ (loop for ,var in seq
+ do ,@body))))
(put 'sgml-code-sequence 'lisp-indent-hook 1)
(put 'sgml-code-sequence 'edbug-forms-hook '(sexp &rest form))

13
editors/psgml/files/patch-psgml-edit.el
View File

@ -1,6 +1,13 @@
--- psgml-edit.el.orig2 Tue Feb 21 07:02:29 2006
+++ psgml-edit.el Tue Feb 21 07:08:59 2006
@@ -1876,18 +1876,22 @@
--- 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 @@
(invert
(or (looking-at "&#\\([0-9]+\\)[;\n]?")
(error "No character reference after point"))
- (let ((c (string-to-int (buffer-substring (match-beginning 1)
+ (let ((c (string-to-number (buffer-substring (match-beginning 1)
(match-end 1)))))
(delete-region (match-beginning 0)
(match-end 0))
(if (fboundp 'decode-char) ; Emacs 21, Mule-UCS
(setq c (decode-char 'ucs c))

368
editors/psgml/files/patch-psgml-parse.el
View File

@ -1,25 +1,343 @@
*** psgml-parse.el.orig Sun Mar 6 01:23:40 2005
--- psgml-parse.el Wed Jun 8 12:47:33 2005
***************
*** 568,574 ****
(setq s1 (car l)
allfinal (and allfinal (sgml-state-final-p s1))
s2 (sgml-get-move s1 token)
! res (and s2 (sgml-make-and-state s2 (remq s1 dfas) next))
l (cdr l)))
(cond (res)
(allfinal (sgml-get-move next token)))))
--- 568,580 ----
(setq s1 (car l)
allfinal (and allfinal (sgml-state-final-p s1))
s2 (sgml-get-move s1 token)
! res (and s2
! (sgml-make-and-state
! s2
! (if (memq s1 dfas)
! (delq s1 (copy-sequence dfas))
! dfas)
! next))
l (cdr l)))
(cond (res)
(allfinal (sgml-get-move next token)))))
--- psgml-parse.el.orig 2012-08-04 11:37:03.000000000 +0900
+++ psgml-parse.el 2012-08-04 11:37:19.000000000 +0900
@@ -329,28 +329,28 @@
;;(progn (set-syntax-table xml-parser-syntax) (describe-syntax))
(defmacro sgml-with-parser-syntax (&rest body)
- (` (let ((normal-syntax-table (syntax-table))
+ `(let ((normal-syntax-table (syntax-table))
(cb (current-buffer)))
(set-syntax-table (if sgml-xml-p xml-parser-syntax sgml-parser-syntax))
(unwind-protect
- (progn (,@ body))
+ (progn ,@body)
(setq sgml-last-buffer (current-buffer))
(set-buffer cb)
- (set-syntax-table normal-syntax-table)))))
+ (set-syntax-table normal-syntax-table))))
(defmacro sgml-with-parser-syntax-ro (&rest body)
;; Should only be used for parsing ....
- (` (let ((normal-syntax-table (syntax-table))
+ `(let ((normal-syntax-table (syntax-table))
(cb (current-buffer))
(buffer-modified (buffer-modified-p)))
(set-syntax-table (if sgml-xml-p xml-parser-syntax sgml-parser-syntax))
(unwind-protect
- (progn (,@ body))
+ (progn ,@body)
(setq sgml-last-buffer (current-buffer))
(set-buffer cb)
(set-syntax-table normal-syntax-table)
(sgml-restore-buffer-modified-p buffer-modified)
- (sgml-debug "Restoring buffer mod: %s" buffer-modified)))))
+ (sgml-debug "Restoring buffer mod: %s" buffer-modified))))
(defun sgml-set-buffer-multibyte (flag)
(cond ((featurep 'xemacs)
@@ -361,7 +361,7 @@
default-enable-multibyte-characters
flag)))
((boundp 'MULE)
- (set 'mc-flag flag))
+ (if (boundp 'mc-flag) (set 'mc-flag flag)))
(t
flag)))
;; Probably better. -- fx
@@ -428,21 +428,21 @@
;;move: (token . node)
(defmacro sgml-make-move (token node)
- (` (cons (, token) (, node))))
+ `(cons ,token ,node))
(defmacro sgml-move-token (x)
- (` (car (, x))))
+ `(car ,x))
(defmacro sgml-move-dest (x)
- (` (cdr (, x))))
+ `(cdr ,x))
;; set of moves: list of moves
(defmacro sgml-add-move-to-set (token node set)
- (`(cons (cons (, token) (, node)) (, set))))
+ `(cons (cons ,token ,node) ,set))
(defmacro sgml-moves-lookup (token set)
- (` (assq (, token) (, set))))
+ `(assq ,token ,set))
;; normal-state: ('normal-state opts . reqs)
@@ -450,16 +450,16 @@
(cons 'normal-state (cons nil nil)))
(defmacro sgml-normal-state-p (s)
- (` (eq (car (, s)) 'normal-state)))
+ `(eq (car ,s) 'normal-state))
(defmacro sgml-state-opts (s)
- (` (cadr (, s))))
+ `(cadr ,s))
(defmacro sgml-state-reqs (s)
- (` (cddr (, s))))
+ `(cddr ,s))
(defmacro sgml-state-final-p (s)
- (`(null (sgml-state-reqs (, s)))))
+ `(null (sgml-state-reqs ,s)))
;; adding moves
;; *** Should these functions check for ambiguity?
@@ -507,10 +507,10 @@
(cons next dfas))
(defmacro sgml-and-node-next (n)
- (` (car (, n))))
+ `(car ,n))
(defmacro sgml-and-node-dfas (n)
- (` (cdr (, n))))
+ `(cdr ,n))
;;; Using states
@@ -903,8 +903,8 @@
(cons
'progn
(loop for n in names collect
- (`(defmacro (, (intern (format "sgml-eltype-%s" n))) (et)
- (list 'get et ''(, n)))))))
+ `(defmacro ,(intern (format "sgml-eltype-%s" n)) (et)
+ (list 'get et '',n)))))
(sgml-prop-fields
;;flags ; optional tags and mixed
@@ -919,7 +919,7 @@
)
(defmacro sgml-eltype-flags (et)
- (` (symbol-value (, et))))
+ `(symbol-value ,et))
(defun sgml-eltype-model (et)
(if (fboundp et)
@@ -966,7 +966,7 @@
"Get application data from element type ET with name PROP.
PROP should be a symbol, reserved names are: flags, model, attlist,
includes, excludes, conref-regexp, mixed, stag-optional, etag-optional."
- (` (get (, et) (, prop))))
+ ` (get ,et ,prop))
(defun sgml-eltype-all-miscdata (et)
(loop for p on (symbol-plist et) by (function cddr)
@@ -1059,7 +1059,7 @@
;;; Wing addition
(defmacro sgml-char-int (ch)
(if (fboundp 'char-int)
- (` (char-int (, ch)))
+ `(char-int ,ch)
ch))
(defsubst sgml-read-octet ()
@@ -1434,51 +1434,51 @@
(setq context '(t)))
((not (listp context))
(setq context (list context))))
- (`(if (and ; This and checks that characters
+ `(if (and ; This and checks that characters
; of the delimiter
- (,@(loop for i from 0 below (length ds) collect
- (` (eq (, (aref ds i))
- (sgml-following-char (, (+ i offset)))))))
+ ,@(loop for i from 0 below (length ds) collect
+ `(eq ,(aref ds i)
+ (sgml-following-char ,(+ i offset))))
(or
- (,@(loop
+ ,@(loop
for c in context collect ; context check
(cond
((eq c 'nmstart) ; name start character
- (`(sgml-startnm-char
- (or (sgml-following-char (, (length ds))) 0))))
+ `(sgml-startnm-char
+ (or (sgml-following-char ,(length ds)) 0)))
((eq c 'stagc)
- (`(and sgml-current-shorttag
- (sgml-is-delim "TAGC" nil nil (, (length ds))))))
+ `(and sgml-current-shorttag
+ (sgml-is-delim "TAGC" nil nil ,(length ds))))
((eq c 'digit)
- (`(memq (sgml-following-char (, (length ds)))
- '(?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))))
+ `(memq (sgml-following-char ,(length ds))
+ '(?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)))
((stringp c)
- (`(sgml-is-delim (, c) nil nil (, (length ds)))))
+ `(sgml-is-delim ,c nil nil ,(length ds)))
((eq c t))
(t (error "Context type: %s" c))))
- )))
+ ))
(progn ; Do operations if delimiter found
- (,@ (if move (`((forward-char (, (length ds)))))))
- (,@ (if (not (eq move 'check))
- '(t))))
- (,@ (if (eq move 'check)
- (`((sgml-delimiter-parse-error (, delim))))))))))
+ ,@(if move `((forward-char ,(length ds))))
+ ,@(if (not (eq move 'check))
+ '(t)))
+ ,@(if (eq move 'check)
+ `((sgml-delimiter-parse-error ,delim))))))
(defmacro sgml-following-char (n)
(cond ((zerop n) '(following-char))
((= n 1) '(char-after (1+ (point))))
- (t (` (char-after (+ (, n) (point)))))))
+ (t `(char-after (+ ,n (point))))))
(defun sgml-delimiter-parse-error (delim)
(sgml-parse-error "Delimiter %s (%s) expected"
delim (sgml-get-delim-string delim)))
(defmacro sgml-parse-delim (delim &optional context)
- (`(sgml-is-delim (, delim) (, context) move)))
+ `(sgml-is-delim ,delim ,context move))
(defmacro sgml-check-delim (delim &optional context)
- (`(sgml-is-delim (, delim) (, context) check)))
+ `(sgml-is-delim ,delim ,context check))
(defmacro sgml-skip-upto (delim)
"Skip until the delimiter or first char of one of the delimiters.
@@ -1502,8 +1502,8 @@
(let ((ds (sgml-get-delim-string (upcase (format "%s" delim)))))
(if (= 1 (length ds))
(list 'skip-chars-forward (concat "^" ds))
- (`(and (search-forward (, ds) nil t)
- (backward-char (, (length ds))))))))))
+ `(and (search-forward ,ds nil t)
+ (backward-char ,(length ds))))))))
;;(macroexpand '(sgml-is-delim mdo))
@@ -1520,22 +1520,22 @@
;;; aproporiate value.
(defmacro sgml-parse-char (char)
- (` (cond ((eq (, char) (following-char))
+ `(cond ((eq ,char (following-char))
(forward-char 1)
- t))))
+ t)))
(defmacro sgml-parse-chars (char1 char2 &optional char3)
"Parse two or three chars; return nil if can't."
(if (null char3)
- (` (cond ((and (eq (, char1) (following-char))
- (eq (, char2) (char-after (1+ (point)))))
+ `(cond ((and (eq ,char1 (following-char))
+ (eq ,char2 (char-after (1+ (point)))))
(forward-char 2)
- t)))
- (` (cond ((and (eq (, char1) (following-char))
- (eq (, char2) (char-after (1+ (point))))
- (eq (, char3) (char-after (1+ (1+ (point))))))
+ t))
+ `(cond ((and (eq ,char1 (following-char))
+ (eq ,char2 (char-after (1+ (point))))
+ (eq ,char3 (char-after (1+ (1+ (point))))))
(forward-char 3)
- t)))))
+ t))))
(defun sgml-check-char (char)
(cond ((not (sgml-parse-char char))
@@ -1546,7 +1546,7 @@
(sgml-parse-char ?\r)))
(defmacro sgml-startnm-char (c)
- (` (eq ?w (char-syntax (, c)))))
+ `(eq ?w (char-syntax ,c)))
(defsubst sgml-startnm-char-next ()
(and (not (eobp))
@@ -1693,11 +1693,11 @@
(define-compiler-macro sgml-parse-name (&whole form &optional entity-name)
(cond
((memq entity-name '(nil t))
- (` (if (sgml-startnm-char-next)
- ((, (if entity-name 'sgml-entity-case 'sgml-general-case))
+ `(if (sgml-startnm-char-next)
+ (,(if entity-name 'sgml-entity-case 'sgml-general-case)
(buffer-substring-no-properties (point)
(progn (skip-syntax-forward "w_")
- (point)))))))
+ (point))))))
(t
form)))
@@ -1827,8 +1827,8 @@
With optional NAME, RNI must be followed by NAME."
(cond
(name
- (` (if (sgml-parse-delim "RNI")
- (sgml-check-token (, name)))))
+ `(if (sgml-parse-delim "RNI")
+ (sgml-check-token ,name)))
(t '(sgml-parse-delim "RNI"))))
(defun sgml-check-token (name)
@@ -2733,11 +2733,11 @@
(let ((macs nil))
(while fields
(push
- (` (defmacro (, (intern (format "%s-%s" dest (car fields)))) (element)
- (, (format "Return %s field of ELEMENT." (car fields)))
+ `(defmacro ,(intern (format "%s-%s" dest (car fields))) (element)
+ ,(format "Return %s field of ELEMENT." (car fields))
(list
- '(, (intern (format "%s-%s" orig (car fields))))
- element)))
+ ',(intern (format "%s-%s" orig (car fields)))
+ element))
macs)
(setq fields (cdr fields)))
(cons 'progn macs)))
@@ -2775,7 +2775,7 @@
(defmacro sgml-element-stag-optional (element)
"True if start-tag of ELEMENT is omissible."
- (`(sgml-eltype-stag-optional (sgml-tree-eltype (, element)))))
+ `(sgml-eltype-stag-optional (sgml-tree-eltype ,element)))
(defsubst sgml-element-etag-optional (element)
"True if end-tag of ELEMENT is omissible."
@@ -2929,8 +2929,10 @@
(defun sgml-set-initial-state (dtd)
"Set initial state of parsing."
- (make-local-hook 'before-change-functions)
- (make-local-hook 'after-change-functions)
+ (if (fboundp 'make-local-hook)
+ (progn
+ (make-local-hook 'before-change-functions)
+ (make-local-hook 'after-change-functions)))
(add-hook 'before-change-functions 'sgml-note-change-at nil 'local)
(add-hook 'after-change-functions 'sgml-set-face-after-change nil 'local)
(sgml-set-active-dtd-indicator (sgml-dtd-doctype dtd))
@@ -3504,7 +3506,7 @@
Also move point. Return nil, either if no shortref or undefined."
(macrolet
- ((delim (x) (` (aref map (, (sgml-shortref-index x))))))
+ ((delim (x) `(aref map ,(sgml-shortref-index x))))
(let ((i (if nobol 1 0)))
(while (numberp i)
(setq i

76
editors/psgml/files/post-patch-psgml.el Normal file
View File

@ -0,0 +1,76 @@
--- psgml.el.orig 2012-08-04 11:43:47.000000000 +0900
+++ psgml.el 2012-08-04 11:43:51.000000000 +0900
@@ -381,7 +381,7 @@
(put 'sgml-system-path 'sgml-type 'file-list)
(defvar sgml-public-map (or (sgml-parse-colon-path (getenv "SGML_PATH"))
- '("%S" "@prefix@/share/sgml/%o/%c/%d" ))
+ '("%S" "/usr/local/share/sgml/%o/%c/%d" ))
"*Mapping from public identifiers to file names.
This is a list of possible file names. To find the file for a public
identifier the elements of the list are used one at the time from the
@@ -407,15 +407,15 @@
(defvar sgml-catalog-files (or (delete nil
(sgml-parse-colon-path
(getenv "SGML_CATALOG_FILES")))
- '("catalog" "@prefix@/share/sgml/catalog"
- "@prefix@/share/xml/catalog"))
+ '("catalog" "/usr/local/share/sgml/catalog"
+ "/usr/local/share/xml/catalog"))
"*List of catalog entry files.
The files are in the format defined in the SGML Open Draft Technical
Resolution on Entity Management.")
(put 'sgml-catalog-files 'sgml-type 'file-list)
-(defvar sgml-ecat-files '("ECAT" "~/sgml/ECAT" "@prefix@/share/sgml/ECAT"
- "@prefix@/share/xml/ECAT")
+(defvar sgml-ecat-files '("ECAT" "~/sgml/ECAT" "/usr/local/share/sgml/ECAT"
+ "/usr/local/share/xml/ECAT")
"*List of catalog files for PSGML.")
(put 'sgml-ecat-files 'sgml-type 'file-list)
@@ -724,9 +724,9 @@
(defun sgml-markup (entry text)
(cons entry
- (` (lambda ()
+ `(lambda ()
(interactive)
- (sgml-insert-markup (, text))))))
+ (sgml-insert-markup ,text))))
(defun sgml-insert-markup (text)
(let ((end (sgml-mouse-region))
@@ -1042,13 +1042,13 @@
(defun sgml-compute-insert-dtd-items ()
(loop for e in sgml-custom-dtd collect
(vector (first e)
- (` (sgml-doctype-insert (, (cadr e)) '(, (cddr e))))
+ `(sgml-doctype-insert ,(cadr e) ',(cddr e))
t)))
(defun sgml-compute-custom-markup-items ()
(loop for e in sgml-custom-markup collect
(vector (first e)
- (` (sgml-insert-markup (, (cadr e))))
+ `(sgml-insert-markup ,(cadr e))
t)))
(defun sgml-build-custom-menus ()
@@ -1231,12 +1231,14 @@
(make-local-variable 'text-property-default-nonsticky)
;; see `sgml-set-face-for':
(add-to-list 'text-property-default-nonsticky '(face . t)))
- (make-local-hook 'post-command-hook)
+ (if (fboundp 'make-local-hook)
+ (eval '(make-local-hook 'post-command-hook)))
(add-hook 'post-command-hook 'sgml-command-post 'append 'local)
(unless sgml-running-lucid
;; XEmacs 20.4 doesn't handle local activate-menubar-hook
;; it tries to call the function `t' when using the menubar
- (make-local-hook 'activate-menubar-hook))
+ (if (fboundp 'make-local-hook)
+ (eval '(make-local-hook 'activate-menubar-hook))))
(add-hook 'activate-menubar-hook 'sgml-update-all-options-menus
nil 'local)
(run-hooks 'text-mode-hook 'psgml-mode-hook)