svn commit: r303130 - in head/editors/apel: . files
MANTANI Nobutaka
nobutaka at FreeBSD.org
Sat Aug 25 12:01:12 UTC 2012
Author: nobutaka
Date: Sat Aug 25 12:01:11 2012
New Revision: 303130
URL: http://svn.freebsd.org/changeset/ports/303130
Log:
Fix old-style backquotes issue.
PR: ports/170961
Submitted by: Yasuhiro KIMURA <yasu at utahime.org>
Added:
head/editors/apel/files/patch-broken.el (contents, props changed)
head/editors/apel/files/patch-filename.el (contents, props changed)
head/editors/apel/files/patch-pccl.el (contents, props changed)
head/editors/apel/files/patch-poe.el (contents, props changed)
head/editors/apel/files/patch-product.el (contents, props changed)
head/editors/apel/files/patch-pym.el (contents, props changed)
head/editors/apel/files/patch-static.el (contents, props changed)
Modified:
head/editors/apel/Makefile (contents, props changed)
Modified: head/editors/apel/Makefile
==============================================================================
--- head/editors/apel/Makefile Sat Aug 25 11:37:59 2012 (r303129)
+++ head/editors/apel/Makefile Sat Aug 25 12:01:11 2012 (r303130)
@@ -7,7 +7,7 @@
PORTNAME= apel
PORTVERSION= ${APEL_VER}
-PORTREVISION= 6
+PORTREVISION= 7
CATEGORIES= editors elisp
MASTER_SITES= http://kanji.zinbun.kyoto-u.ac.jp/~tomo/lemi/dist/apel/
PKGNAMESUFFIX= -${EMACS_PORT_NAME}
Added: head/editors/apel/files/patch-broken.el
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ head/editors/apel/files/patch-broken.el Sat Aug 25 12:01:11 2012 (r303130)
@@ -0,0 +1,84 @@
+Index: broken.el
+===================================================================
+--- broken.el (revision 2)
++++ broken.el (working copy)
+@@ -58,51 +58,51 @@
+
+ If ASSERTION is not omitted and evaluated to nil and NO-NOTICE is nil,
+ it is noticed."
+- (` (static-if (, assertion)
+- (eval-and-compile
+- (broken-facility-internal '(, facility) (, docstring) t))
+- (eval-when-compile
+- (when (and '(, assertion) (not '(, no-notice))
+- notice-non-obvious-broken-facility)
+- (message "BROKEN FACILITY DETECTED: %s" (, docstring)))
+- nil)
+- (eval-and-compile
+- (broken-facility-internal '(, facility) (, docstring) nil)))))
++ `(static-if ,assertion
++ (eval-and-compile
++ (broken-facility-internal ',facility ,docstring t))
++ (eval-when-compile
++ (when (and ',assertion (not ',no-notice)
++ notice-non-obvious-broken-facility)
++ (message "BROKEN FACILITY DETECTED: %s" ,docstring))
++ nil)
++ (eval-and-compile
++ (broken-facility-internal ',facility ,docstring nil))))
+
+ (put 'if-broken 'lisp-indent-function 2)
+ (defmacro if-broken (facility then &rest else)
+ "If FACILITY is broken, expand to THEN, otherwise (progn . ELSE)."
+- (` (static-if (broken-p '(, facility))
+- (, then)
+- (,@ else))))
++ `(static-if (broken-p ',facility)
++ ,then
++ , at else))
+
+
+ (put 'when-broken 'lisp-indent-function 1)
+ (defmacro when-broken (facility &rest body)
+ "If FACILITY is broken, expand to (progn . BODY), otherwise nil."
+- (` (static-when (broken-p '(, facility))
+- (,@ body))))
++ `(static-when (broken-p ',facility)
++ , at body))
+
+ (put 'unless-broken 'lisp-indent-function 1)
+ (defmacro unless-broken (facility &rest body)
+ "If FACILITY is not broken, expand to (progn . BODY), otherwise nil."
+- (` (static-unless (broken-p '(, facility))
+- (,@ body))))
++ `(static-unless (broken-p ',facility)
++ , at body))
+
+ (defmacro check-broken-facility (facility)
+ "Check FACILITY is broken or not. If the status is different on
+ compile(macro expansion) time and run time, warn it."
+- (` (if-broken (, facility)
+- (unless (broken-p '(, facility))
+- (message "COMPILE TIME ONLY BROKEN FACILITY DETECTED: %s"
+- (or
+- '(, (broken-facility-description facility))
+- (broken-facility-description '(, facility)))))
+- (when (broken-p '(, facility))
+- (message "RUN TIME ONLY BROKEN FACILITY DETECTED: %s"
+- (or
+- (broken-facility-description '(, facility))
+- '(, (broken-facility-description facility))))))))
++ `(if-broken ,facility
++ (unless (broken-p ',facility)
++ (message "COMPILE TIME ONLY BROKEN FACILITY DETECTED: %s"
++ (or
++ ',(broken-facility-description facility)
++ (broken-facility-description ',facility))))
++ (when (broken-p ',facility)
++ (message "RUN TIME ONLY BROKEN FACILITY DETECTED: %s"
++ (or
++ (broken-facility-description ',facility)
++ ',(broken-facility-description facility))))))
+
+
+ ;;; @ end
Added: head/editors/apel/files/patch-filename.el
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ head/editors/apel/files/patch-filename.el Sat Aug 25 12:01:11 2012 (r303130)
@@ -0,0 +1,51 @@
+Index: filename.el
+===================================================================
+--- filename.el (revision 2)
++++ filename.el (working copy)
+@@ -102,26 +102,26 @@
+ inc-i '(1+ i))
+ (setq sref 'aref
+ inc-i '(+ i (char-length chr))))
+- (` (let ((len (length (, string)))
+- (b 0)(i 0)
+- (dest ""))
+- (while (< i len)
+- (let ((chr ((, sref) (, string) i))
+- (lst filename-replacement-alist)
+- ret)
+- (while (and lst (not ret))
+- (if (if (functionp (car (car lst)))
+- (setq ret (funcall (car (car lst)) chr))
+- (setq ret (memq chr (car (car lst)))))
+- t ; quit this loop.
+- (setq lst (cdr lst))))
+- (if ret
+- (setq dest (concat dest (substring (, string) b i)
+- (cdr (car lst)))
+- i (, inc-i)
+- b i)
+- (setq i (, inc-i)))))
+- (concat dest (substring (, string) b)))))))
++ `(let ((len (length ,string))
++ (b 0)(i 0)
++ (dest ""))
++ (while (< i len)
++ (let ((chr (,sref ,string i))
++ (lst filename-replacement-alist)
++ ret)
++ (while (and lst (not ret))
++ (if (if (functionp (car (car lst)))
++ (setq ret (funcall (car (car lst)) chr))
++ (setq ret (memq chr (car (car lst)))))
++ t ; quit this loop.
++ (setq lst (cdr lst))))
++ (if ret
++ (setq dest (concat dest (substring ,string b i)
++ (cdr (car lst)))
++ i ,inc-i
++ b i)
++ (setq i ,inc-i))))
++ (concat dest (substring ,string b))))))
+
+ (defun filename-special-filter (string)
+ (filename-special-filter-1 string))
Added: head/editors/apel/files/patch-pccl.el
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ head/editors/apel/files/patch-pccl.el Sat Aug 25 12:01:11 2012 (r303130)
@@ -0,0 +1,268 @@
+Index: pccl.el
+===================================================================
+--- pccl.el (revision 2)
++++ pccl.el (working copy)
+@@ -27,138 +27,138 @@
+ (require 'broken)
+
+ (broken-facility ccl-usable
+- "Emacs has not CCL."
+- (and (featurep 'mule)
+- (if (featurep 'xemacs)
+- (>= emacs-major-version 21)
+- (>= emacs-major-version 19))))
++ "Emacs has not CCL."
++ (and (featurep 'mule)
++ (if (featurep 'xemacs)
++ (>= emacs-major-version 21)
++ (>= emacs-major-version 19))))
+
+ (unless-broken ccl-usable
+- (require 'advice)
++ (require 'advice)
+
+- (if (featurep 'mule)
+- (progn
+- (require 'ccl)
+- (if (featurep 'xemacs)
+- (if (>= emacs-major-version 21)
+- ;; for XEmacs 21 with mule
+- (require 'pccl-20))
+- (if (>= emacs-major-version 20)
+- ;; for Emacs 20
+- (require 'pccl-20)
+- ;; for Mule 2.*
+- (require 'pccl-om)))))
++ (if (featurep 'mule)
++ (progn
++ (require 'ccl)
++ (if (featurep 'xemacs)
++ (if (>= emacs-major-version 21)
++ ;; for XEmacs 21 with mule
++ (require 'pccl-20))
++ (if (>= emacs-major-version 20)
++ ;; for Emacs 20
++ (require 'pccl-20)
++ ;; for Mule 2.*
++ (require 'pccl-om)))))
+
+- (static-if (or (featurep 'xemacs) (< emacs-major-version 21))
+- (defadvice define-ccl-program
+- (before accept-long-ccl-program activate)
+- "When CCL-PROGRAM is too long, internal buffer is extended automatically."
+- (let ((try-ccl-compile t)
+- (prog (eval (ad-get-arg 1))))
+- (ad-set-arg 1 (` '(, prog)))
+- (while try-ccl-compile
+- (setq try-ccl-compile nil)
+- (condition-case sig
+- (ccl-compile prog)
+- (args-out-of-range
+- (if (and (eq (car (cdr sig)) ccl-program-vector)
+- (= (car (cdr (cdr sig))) (length ccl-program-vector)))
+- (setq ccl-program-vector
+- (make-vector (* 2 (length ccl-program-vector)) 0)
+- try-ccl-compile t)
+- (signal (car sig) (cdr sig)))))))))
++ (static-if (or (featurep 'xemacs) (< emacs-major-version 21))
++ (defadvice define-ccl-program
++ (before accept-long-ccl-program activate)
++ "When CCL-PROGRAM is too long, internal buffer is extended automatically."
++ (let ((try-ccl-compile t)
++ (prog (eval (ad-get-arg 1))))
++ (ad-set-arg 1 `',prog)
++ (while try-ccl-compile
++ (setq try-ccl-compile nil)
++ (condition-case sig
++ (ccl-compile prog)
++ (args-out-of-range
++ (if (and (eq (car (cdr sig)) ccl-program-vector)
++ (= (car (cdr (cdr sig))) (length ccl-program-vector)))
++ (setq ccl-program-vector
++ (make-vector (* 2 (length ccl-program-vector)) 0)
++ try-ccl-compile t)
++ (signal (car sig) (cdr sig)))))))))
+
+- (static-when (and (not (featurep 'xemacs)) (< emacs-major-version 21))
+- (defun-maybe transform-make-coding-system-args (name type &optional doc-string props)
+- "For internal use only.
++ (static-when (and (not (featurep 'xemacs)) (< emacs-major-version 21))
++ (defun-maybe transform-make-coding-system-args (name type &optional doc-string props)
++ "For internal use only.
+ Transform XEmacs style args for `make-coding-system' to Emacs style.
+ Value is a list of transformed arguments."
+- (let ((mnemonic (string-to-char (or (plist-get props 'mnemonic) "?")))
+- (eol-type (plist-get props 'eol-type))
+- properties tmp)
+- (cond
+- ((eq eol-type 'lf) (setq eol-type 'unix))
+- ((eq eol-type 'crlf) (setq eol-type 'dos))
+- ((eq eol-type 'cr) (setq eol-type 'mac)))
+- (if (setq tmp (plist-get props 'post-read-conversion))
+- (setq properties (plist-put properties 'post-read-conversion tmp)))
+- (if (setq tmp (plist-get props 'pre-write-conversion))
+- (setq properties (plist-put properties 'pre-write-conversion tmp)))
+- (cond
+- ((eq type 'shift-jis)
+- (` ((, name) 1 (, mnemonic) (, doc-string)
+- nil (, properties) (, eol-type))))
+- ((eq type 'iso2022) ; This is not perfect.
+- (if (plist-get props 'escape-quoted)
+- (error "escape-quoted is not supported: %S"
+- (` ((, name) (, type) (, doc-string) (, props)))))
+- (let ((g0 (plist-get props 'charset-g0))
+- (g1 (plist-get props 'charset-g1))
+- (g2 (plist-get props 'charset-g2))
+- (g3 (plist-get props 'charset-g3))
+- (use-roman
+- (and
+- (eq (cadr (assoc 'latin-jisx0201
+- (plist-get props 'input-charset-conversion)))
+- 'ascii)
+- (eq (cadr (assoc 'ascii
+- (plist-get props 'output-charset-conversion)))
+- 'latin-jisx0201)))
+- (use-oldjis
+- (and
+- (eq (cadr (assoc 'japanese-jisx0208-1978
+- (plist-get props 'input-charset-conversion)))
+- 'japanese-jisx0208)
+- (eq (cadr (assoc 'japanese-jisx0208
+- (plist-get props 'output-charset-conversion)))
+- 'japanese-jisx0208-1978))))
+- (if (charsetp g0)
+- (if (plist-get props 'force-g0-on-output)
+- (setq g0 (` (nil (, g0))))
+- (setq g0 (` ((, g0) t)))))
+- (if (charsetp g1)
+- (if (plist-get props 'force-g1-on-output)
+- (setq g1 (` (nil (, g1))))
+- (setq g1 (` ((, g1) t)))))
+- (if (charsetp g2)
+- (if (plist-get props 'force-g2-on-output)
+- (setq g2 (` (nil (, g2))))
+- (setq g2 (` ((, g2) t)))))
+- (if (charsetp g3)
+- (if (plist-get props 'force-g3-on-output)
+- (setq g3 (` (nil (, g3))))
+- (setq g3 (` ((, g3) t)))))
+- (` ((, name) 2 (, mnemonic) (, doc-string)
+- ((, g0) (, g1) (, g2) (, g3)
+- (, (plist-get props 'short))
+- (, (not (plist-get props 'no-ascii-eol)))
+- (, (not (plist-get props 'no-ascii-cntl)))
+- (, (plist-get props 'seven))
+- t
+- (, (not (plist-get props 'lock-shift)))
+- (, use-roman)
+- (, use-oldjis)
+- (, (plist-get props 'no-iso6429))
+- nil nil nil nil)
+- (, properties) (, eol-type)))))
+- ((eq type 'big5)
+- (` ((, name) 3 (, mnemonic) (, doc-string)
+- nil (, properties) (, eol-type))))
+- ((eq type 'ccl)
+- (` ((, name) 4 (, mnemonic) (, doc-string)
+- ((, (plist-get props 'decode)) . (, (plist-get props 'encode)))
+- (, properties) (, eol-type))))
+- (t
+- (error "unsupported XEmacs style make-coding-style arguments: %S"
+- (` ((, name) (, type) (, doc-string) (, props))))))))
+- (defadvice make-coding-system
+- (before ccl-compat (name type &rest ad-subr-args) activate)
+- "Emulate XEmacs style make-coding-system."
+- (when (and (symbolp type) (not (memq type '(t nil))))
+- (let ((args (apply 'transform-make-coding-system-args
+- name type ad-subr-args)))
+- (setq type (cadr args)
+- ad-subr-args (cddr args)))))))
++ (let ((mnemonic (string-to-char (or (plist-get props 'mnemonic) "?")))
++ (eol-type (plist-get props 'eol-type))
++ properties tmp)
++ (cond
++ ((eq eol-type 'lf) (setq eol-type 'unix))
++ ((eq eol-type 'crlf) (setq eol-type 'dos))
++ ((eq eol-type 'cr) (setq eol-type 'mac)))
++ (if (setq tmp (plist-get props 'post-read-conversion))
++ (setq properties (plist-put properties 'post-read-conversion tmp)))
++ (if (setq tmp (plist-get props 'pre-write-conversion))
++ (setq properties (plist-put properties 'pre-write-conversion tmp)))
++ (cond
++ ((eq type 'shift-jis)
++ `(,name 1 ,mnemonic ,doc-string
++ nil ,properties ,eol-type))
++ ((eq type 'iso2022) ; This is not perfect.
++ (if (plist-get props 'escape-quoted)
++ (error "escape-quoted is not supported: %S"
++ `(,name ,type ,doc-string ,props)))
++ (let ((g0 (plist-get props 'charset-g0))
++ (g1 (plist-get props 'charset-g1))
++ (g2 (plist-get props 'charset-g2))
++ (g3 (plist-get props 'charset-g3))
++ (use-roman
++ (and
++ (eq (cadr (assoc 'latin-jisx0201
++ (plist-get props 'input-charset-conversion)))
++ 'ascii)
++ (eq (cadr (assoc 'ascii
++ (plist-get props 'output-charset-conversion)))
++ 'latin-jisx0201)))
++ (use-oldjis
++ (and
++ (eq (cadr (assoc 'japanese-jisx0208-1978
++ (plist-get props 'input-charset-conversion)))
++ 'japanese-jisx0208)
++ (eq (cadr (assoc 'japanese-jisx0208
++ (plist-get props 'output-charset-conversion)))
++ 'japanese-jisx0208-1978))))
++ (if (charsetp g0)
++ (if (plist-get props 'force-g0-on-output)
++ (setq g0 `(nil ,g0))
++ (setq g0 `(,g0 t))))
++ (if (charsetp g1)
++ (if (plist-get props 'force-g1-on-output)
++ (setq g1 `(nil ,g1))
++ (setq g1 `(,g1 t))))
++ (if (charsetp g2)
++ (if (plist-get props 'force-g2-on-output)
++ (setq g2 `(nil ,g2))
++ (setq g2 `(,g2 t))))
++ (if (charsetp g3)
++ (if (plist-get props 'force-g3-on-output)
++ (setq g3 `(nil ,g3))
++ (setq g3 `(,g3 t))))
++ `(,name 2 ,mnemonic ,doc-string
++ (,g0 ,g1 ,g2 ,g3
++ ,(plist-get props 'short)
++ ,(not (plist-get props 'no-ascii-eol))
++ ,(not (plist-get props 'no-ascii-cntl))
++ ,(plist-get props 'seven)
++ t
++ ,(not (plist-get props 'lock-shift))
++ ,use-roman
++ ,use-oldjis
++ ,(plist-get props 'no-iso6429)
++ nil nil nil nil)
++ ,properties ,eol-type)))
++ ((eq type 'big5)
++ `(,name 3 ,mnemonic ,doc-string
++ nil ,properties ,eol-type))
++ ((eq type 'ccl)
++ `(,name 4 ,mnemonic ,doc-string
++ (,(plist-get props 'decode) . ,(plist-get props 'encode))
++ ,properties ,eol-type))
++ (t
++ (error "unsupported XEmacs style make-coding-style arguments: %S"
++ `(,name ,type ,doc-string ,props))))))
++ (defadvice make-coding-system
++ (before ccl-compat (name type &rest ad-subr-args) activate)
++ "Emulate XEmacs style make-coding-system."
++ (when (and (symbolp type) (not (memq type '(t nil))))
++ (let ((args (apply 'transform-make-coding-system-args
++ name type ad-subr-args)))
++ (setq type (cadr args)
++ ad-subr-args (cddr args)))))))
+
+
+ ;;; @ end
Added: head/editors/apel/files/patch-poe.el
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ head/editors/apel/files/patch-poe.el Sat Aug 25 12:01:11 2012 (r303130)
@@ -0,0 +1,1410 @@
+Index: poe.el
+===================================================================
+--- poe.el (revision 2)
++++ poe.el (working copy)
+@@ -38,22 +38,22 @@
+ ;;;
+
+ (static-when (= emacs-major-version 18)
+- (require 'poe-18))
++ (require 'poe-18))
+
+ ;; Some ancient version of XEmacs did not provide 'xemacs.
+ (static-when (string-match "XEmacs" emacs-version)
+- (provide 'xemacs))
++ (provide 'xemacs))
+
+ ;; `file-coding' was appeared in the spring of 1998, just before XEmacs
+ ;; 21.0. Therefore it is not provided in XEmacs with MULE versions 20.4
+ ;; or earlier.
+ (static-when (featurep 'xemacs)
+- ;; must be load-time check to share .elc between w/ MULE and w/o MULE.
+- (when (featurep 'mule)
+- (provide 'file-coding)))
++ ;; must be load-time check to share .elc between w/ MULE and w/o MULE.
++ (when (featurep 'mule)
++ (provide 'file-coding)))
+
+ (static-when (featurep 'xemacs)
+- (require 'poe-xemacs))
++ (require 'poe-xemacs))
+
+ ;; must be load-time check to share .elc between different systems.
+ (or (fboundp 'open-network-stream)
+@@ -66,18 +66,18 @@
+ ;; Emacs 20.3 and earlier: (require FEATURE &optional FILENAME)
+ ;; Emacs 20.4 and later: (require FEATURE &optional FILENAME NOERROR)
+ (static-condition-case nil
+- ;; compile-time check.
+- (progn
+- (require 'nofeature "nofile" 'noerror)
+- (if (get 'require 'defun-maybe)
+- (error "`require' is already redefined")))
+- (error
+- ;; load-time check.
+- (or (fboundp 'si:require)
+- (progn
+- (fset 'si:require (symbol-function 'require))
+- (defun require (feature &optional filename noerror)
+- "\
++ ;; compile-time check.
++ (progn
++ (require 'nofeature "nofile" 'noerror)
++ (if (get 'require 'defun-maybe)
++ (error "`require' is already redefined")))
++ (error
++ ;; load-time check.
++ (or (fboundp 'si:require)
++ (progn
++ (fset 'si:require (symbol-function 'require))
++ (defun require (feature &optional filename noerror)
++ "\
+ If feature FEATURE is not loaded, load it from FILENAME.
+ If FEATURE is not a member of the list `features', then the feature
+ is not loaded; so load the file FILENAME.
+@@ -86,14 +86,14 @@
+ If the optional third argument NOERROR is non-nil,
+ then return nil if the file is not found.
+ Normally the return value is FEATURE."
+- (if noerror
+- (condition-case nil
+- (si:require feature filename)
+- (file-error))
+- (si:require feature filename)))
+- ;; for `load-history'.
+- (setq current-load-list (cons 'require current-load-list))
+- (put 'require 'defun-maybe t)))))
++ (if noerror
++ (condition-case nil
++ (si:require feature filename)
++ (file-error))
++ (si:require feature filename)))
++ ;; for `load-history'.
++ (setq current-load-list (cons 'require current-load-list))
++ (put 'require 'defun-maybe t)))))
+
+ ;; Emacs 19.29 and later: (plist-get PLIST PROP)
+ ;; (defun-maybe plist-get (plist prop)
+@@ -103,21 +103,21 @@
+ ;; (car (cdr plist)))
+ (static-unless (and (fboundp 'plist-get)
+ (not (get 'plist-get 'defun-maybe)))
+- (or (fboundp 'plist-get)
+- (progn
+- (defvar plist-get-internal-symbol)
+- (defun plist-get (plist prop)
+- "\
++ (or (fboundp 'plist-get)
++ (progn
++ (defvar plist-get-internal-symbol)
++ (defun plist-get (plist prop)
++ "\
+ Extract a value from a property list.
+ PLIST is a property list, which is a list of the form
+ \(PROP1 VALUE1 PROP2 VALUE2...\). This function returns the value
+ corresponding to the given PROP, or nil if PROP is not
+ one of the properties on the list."
+- (setplist 'plist-get-internal-symbol plist)
+- (get 'plist-get-internal-symbol prop))
+- ;; for `load-history'.
+- (setq current-load-list (cons 'plist-get current-load-list))
+- (put 'plist-get 'defun-maybe t))))
++ (setplist 'plist-get-internal-symbol plist)
++ (get 'plist-get-internal-symbol prop))
++ ;; for `load-history'.
++ (setq current-load-list (cons 'plist-get current-load-list))
++ (put 'plist-get 'defun-maybe t))))
+
+ ;; Emacs 19.29 and later: (plist-put PLIST PROP VAL)
+ ;; (defun-maybe plist-put (plist prop val)
+@@ -138,11 +138,11 @@
+ ;; (list prop val)))))
+ (static-unless (and (fboundp 'plist-put)
+ (not (get 'plist-put 'defun-maybe)))
+- (or (fboundp 'plist-put)
+- (progn
+- (defvar plist-put-internal-symbol)
+- (defun plist-put (plist prop val)
+- "\
++ (or (fboundp 'plist-put)
++ (progn
++ (defvar plist-put-internal-symbol)
++ (defun plist-put (plist prop val)
++ "\
+ Change value in PLIST of PROP to VAL.
+ PLIST is a property list, which is a list of the form
+ \(PROP1 VALUE1 PROP2 VALUE2 ...\). PROP is a symbol and VAL is any object.
+@@ -150,12 +150,12 @@
+ otherwise the new PROP VAL pair is added. The new plist is returned;
+ use `\(setq x \(plist-put x prop val\)\)' to be sure to use the new value.
+ The PLIST is modified by side effects."
+- (setplist 'plist-put-internal-symbol plist)
+- (put 'plist-put-internal-symbol prop val)
+- (symbol-plist 'plist-put-internal-symbol))
+- ;; for `load-history'.
+- (setq current-load-list (cons 'plist-put current-load-list))
+- (put 'plist-put 'defun-maybe t))))
++ (setplist 'plist-put-internal-symbol plist)
++ (put 'plist-put-internal-symbol prop val)
++ (symbol-plist 'plist-put-internal-symbol))
++ ;; for `load-history'.
++ (setq current-load-list (cons 'plist-put current-load-list))
++ (put 'plist-put 'defun-maybe t))))
+
+ ;; Emacs 19.23 and later: (minibuffer-prompt-width)
+ (defun-maybe minibuffer-prompt-width ()
+@@ -170,16 +170,16 @@
+ (>= emacs-major-version 20)
+ (and (= emacs-major-version 19)
+ (>= emacs-minor-version 29)))
+- (or (fboundp 'si:read-string)
+- (progn
+- (fset 'si:read-string (symbol-function 'read-string))
+- (defun read-string (prompt &optional initial-input history)
+- "\
++ (or (fboundp 'si:read-string)
++ (progn
++ (fset 'si:read-string (symbol-function 'read-string))
++ (defun read-string (prompt &optional initial-input history)
++ "\
+ Read a string from the minibuffer, prompting with string PROMPT.
+ If non-nil, second arg INITIAL-INPUT is a string to insert before reading.
+ The third arg HISTORY, is dummy for compatibility.
+ See `read-from-minibuffer' for details of HISTORY argument."
+- (si:read-string prompt initial-input)))))
++ (si:read-string prompt initial-input)))))
+
+ ;; (completing-read prompt table &optional
+ ;; FSF Emacs
+@@ -203,8 +203,8 @@
+ (fset 'si:completing-read (symbol-function 'completing-read))
+ (defun completing-read
+ (prompt table &optional predicate require-match init
+- hist def)
+- "Read a string in the minibuffer, with completion.
++ hist def)
++ "Read a string in the minibuffer, with completion.
+ PROMPT is a string to prompt with; normally it ends in a colon and a space.
+ TABLE is an alist whose elements' cars are strings, or an obarray.
+ PREDICATE limits completion to a subset of TABLE.
+@@ -225,10 +225,10 @@
+
+ Completion ignores case if the ambient value of
+ `completion-ignore-case' is non-nil."
+- (let ((string (si:completing-read prompt table predicate
+- require-match init)))
+- (if (and (string= string "") def)
+- def string))))))
++ (let ((string (si:completing-read prompt table predicate
++ require-match init)))
++ (if (and (string= string "") def)
++ def string))))))
+ ;; add 'def' argument.
+ ((or (and (featurep 'xemacs)
+ (or (and (eq emacs-major-version 21)
+@@ -240,8 +240,8 @@
+ (fset 'si:completing-read (symbol-function 'completing-read))
+ (defun completing-read
+ (prompt table &optional predicate require-match init
+- hist def)
+- "Read a string in the minibuffer, with completion.
++ hist def)
++ "Read a string in the minibuffer, with completion.
+ PROMPT is a string to prompt with; normally it ends in a colon and a space.
+ TABLE is an alist whose elements' cars are strings, or an obarray.
+ PREDICATE limits completion to a subset of TABLE.
+@@ -269,10 +269,10 @@
+
+ Completion ignores case if the ambient value of
+ `completion-ignore-case' is non-nil."
+- (let ((string (si:completing-read prompt table predicate
+- require-match init hist)))
+- (if (and (string= string "") def)
+- def string)))))))
++ (let ((string (si:completing-read prompt table predicate
++ require-match init hist)))
++ (if (and (string= string "") def)
++ def string)))))))
+
+ ;; v18: (string-to-int STRING)
+ ;; v19: (string-to-number STRING)
+@@ -281,24 +281,24 @@
+ ;; XXX: `string-to-number' of Emacs 20.3 and earlier is broken.
+ ;; (string-to-number "1e1" 16) => 10.0, should be 481.
+ (static-condition-case nil
+- ;; compile-time check.
+- (if (= (string-to-number "1e1" 16) 481)
+- (if (get 'string-to-number 'defun-maybe)
+- (error "`string-to-number' is already redefined"))
+- (error "`string-to-number' is broken"))
+- (error
+- ;; load-time check.
+- (or (fboundp 'si:string-to-number)
+- (progn
+- (if (fboundp 'string-to-number)
+- (fset 'si:string-to-number (symbol-function 'string-to-number))
+- (fset 'si:string-to-number (symbol-function 'string-to-int))
+- ;; XXX: In v18, this causes infinite loop while byte-compiling.
+- ;; (defalias 'string-to-int 'string-to-number)
+- )
+- (put 'string-to-number 'defun-maybe t)
+- (defun string-to-number (string &optional base)
+- "\
++ ;; compile-time check.
++ (if (= (string-to-number "1e1" 16) 481)
++ (if (get 'string-to-number 'defun-maybe)
++ (error "`string-to-number' is already redefined"))
++ (error "`string-to-number' is broken"))
++ (error
++ ;; load-time check.
++ (or (fboundp 'si:string-to-number)
++ (progn
++ (if (fboundp 'string-to-number)
++ (fset 'si:string-to-number (symbol-function 'string-to-number))
++ (fset 'si:string-to-number (symbol-function 'string-to-int))
++ ;; XXX: In v18, this causes infinite loop while byte-compiling.
++ ;; (defalias 'string-to-int 'string-to-number)
++ )
++ (put 'string-to-number 'defun-maybe t)
++ (defun string-to-number (string &optional base)
++ "\
+ Convert STRING to a number by parsing it as a decimal number.
+ This parses both integers and floating point numbers.
+ It ignores leading spaces and tabs.
+@@ -306,39 +306,39 @@
+ If BASE, interpret STRING as a number in that base. If BASE isn't
+ present, base 10 is used. BASE must be between 2 and 16 (inclusive).
+ If the base used is not 10, floating point is not recognized."
+- (if (or (null base) (= base 10))
+- (si:string-to-number string)
+- (if (or (< base 2)(> base 16))
+- (signal 'args-out-of-range (cons base nil)))
+- (let ((len (length string))
+- (pos 0))
+- ;; skip leading whitespace.
+- (while (and (< pos len)
+- (memq (aref string pos) '(?\ ?\t)))
+- (setq pos (1+ pos)))
+- (if (= pos len)
+- 0
+- (let ((number 0)(negative 1)
+- chr num)
+- (if (eq (aref string pos) ?-)
+- (setq negative -1
+- pos (1+ pos))
+- (if (eq (aref string pos) ?+)
+- (setq pos (1+ pos))))
+- (while (and (< pos len)
+- (setq chr (aref string pos)
+- num (cond
+- ((and (<= ?0 chr)(<= chr ?9))
+- (- chr ?0))
+- ((and (<= ?A chr)(<= chr ?F))
+- (+ (- chr ?A) 10))
+- ((and (<= ?a chr)(<= chr ?f))
+- (+ (- chr ?a) 10))
+- (t nil)))
+- (< num base))
+- (setq number (+ (* number base) num)
+- pos (1+ pos)))
+- (* negative number))))))))))
++ (if (or (null base) (= base 10))
++ (si:string-to-number string)
++ (if (or (< base 2)(> base 16))
++ (signal 'args-out-of-range (cons base nil)))
++ (let ((len (length string))
++ (pos 0))
++ ;; skip leading whitespace.
++ (while (and (< pos len)
++ (memq (aref string pos) '(?\ ?\t)))
++ (setq pos (1+ pos)))
++ (if (= pos len)
++ 0
++ (let ((number 0)(negative 1)
++ chr num)
++ (if (eq (aref string pos) ?-)
++ (setq negative -1
++ pos (1+ pos))
++ (if (eq (aref string pos) ?+)
++ (setq pos (1+ pos))))
++ (while (and (< pos len)
++ (setq chr (aref string pos)
++ num (cond
++ ((and (<= ?0 chr)(<= chr ?9))
++ (- chr ?0))
++ ((and (<= ?A chr)(<= chr ?F))
++ (+ (- chr ?A) 10))
++ ((and (<= ?a chr)(<= chr ?f))
++ (+ (- chr ?a) 10))
++ (t nil)))
++ (< num base))
++ (setq number (+ (* number base) num)
++ pos (1+ pos)))
++ (* negative number))))))))))
+
+ ;; Emacs 20.1 and 20.2: (concat-chars &rest CHARS)
+ ;; Emacs 20.3/XEmacs 21.0 and later: (string &rest CHARS)
+@@ -362,130 +362,130 @@
+ ;; Mule: (char-before POS)
+ ;; v20: (char-before &optional POS)
+ (static-condition-case nil
+- ;; compile-time check.
+- (progn
+- (char-before)
+- (if (get 'char-before 'defun-maybe)
+- (error "`char-before' is already defined")))
+- (wrong-number-of-arguments ; Mule.
+- ;; load-time check.
+- (or (fboundp 'si:char-before)
+- (progn
+- (fset 'si:char-before (symbol-function 'char-before))
+- (put 'char-before 'defun-maybe t)
+- ;; takes IGNORED for backward compatibility.
+- (defun char-before (&optional pos ignored)
+- "\
++ ;; compile-time check.
++ (progn
++ (char-before)
++ (if (get 'char-before 'defun-maybe)
++ (error "`char-before' is already defined")))
++ (wrong-number-of-arguments ; Mule.
++ ;; load-time check.
++ (or (fboundp 'si:char-before)
++ (progn
++ (fset 'si:char-before (symbol-function 'char-before))
++ (put 'char-before 'defun-maybe t)
++ ;; takes IGNORED for backward compatibility.
++ (defun char-before (&optional pos ignored)
++ "\
+ Return character in current buffer preceding position POS.
+ POS is an integer or a buffer pointer.
+ If POS is out of range, the value is nil."
+- (si:char-before (or pos (point)))))))
+- (void-function ; non-Mule.
+- ;; load-time check.
+- (defun-maybe char-before (&optional pos)
+- "\
++ (si:char-before (or pos (point)))))))
++ (void-function ; non-Mule.
++ ;; load-time check.
++ (defun-maybe char-before (&optional pos)
++ "\
+ Return character in current buffer preceding position POS.
+ POS is an integer or a buffer pointer.
+ If POS is out of range, the value is nil."
+- (if pos
+- (save-excursion
+- (and (= (goto-char pos) (point))
+- (not (bobp))
+- (preceding-char)))
+- (and (not (bobp))
+- (preceding-char)))))
+- (error ; found our definition at compile-time.
+- ;; load-time check.
+- (condition-case nil
+- (char-before)
+- (wrong-number-of-arguments ; Mule.
+- (or (fboundp 'si:char-before)
+- (progn
+- (fset 'si:char-before (symbol-function 'char-before))
+- (put 'char-before 'defun-maybe t)
+- ;; takes IGNORED for backward compatibility.
+- (defun char-before (&optional pos ignored)
+- "\
++ (if pos
++ (save-excursion
++ (and (= (goto-char pos) (point))
++ (not (bobp))
++ (preceding-char)))
++ (and (not (bobp))
++ (preceding-char)))))
++ (error ; found our definition at compile-time.
++ ;; load-time check.
++ (condition-case nil
++ (char-before)
++ (wrong-number-of-arguments ; Mule.
++ (or (fboundp 'si:char-before)
++ (progn
++ (fset 'si:char-before (symbol-function 'char-before))
++ (put 'char-before 'defun-maybe t)
++ ;; takes IGNORED for backward compatibility.
++ (defun char-before (&optional pos ignored)
++ "\
+ Return character in current buffer preceding position POS.
+ POS is an integer or a buffer pointer.
+ If POS is out of range, the value is nil."
+- (si:char-before (or pos (point)))))))
+- (void-function ; non-Mule.
+- (defun-maybe char-before (&optional pos)
+- "\
++ (si:char-before (or pos (point)))))))
++ (void-function ; non-Mule.
++ (defun-maybe char-before (&optional pos)
++ "\
+ Return character in current buffer preceding position POS.
+ POS is an integer or a buffer pointer.
+ If POS is out of range, the value is nil."
+- (if pos
+- (save-excursion
+- (and (= (goto-char pos) (point))
+- (not (bobp))
+- (preceding-char)))
+- (and (not (bobp))
+- (preceding-char))))))))
++ (if pos
++ (save-excursion
++ (and (= (goto-char pos) (point))
++ (not (bobp))
++ (preceding-char)))
++ (and (not (bobp))
++ (preceding-char))))))))
+
+ ;; v18, v19: (char-after POS)
+ ;; v20: (char-after &optional POS)
+ (static-condition-case nil
+- ;; compile-time check.
+- (progn
+- (char-after)
+- (if (get 'char-after 'defun-maybe)
+- (error "`char-after' is already redefined")))
+- (wrong-number-of-arguments ; v18, v19
+- ;; load-time check.
+- (or (fboundp 'si:char-after)
+- (progn
+- (fset 'si:char-after (symbol-function 'char-after))
+- (put 'char-after 'defun-maybe t)
+- (defun char-after (&optional pos)
+- "\
++ ;; compile-time check.
++ (progn
++ (char-after)
++ (if (get 'char-after 'defun-maybe)
++ (error "`char-after' is already redefined")))
++ (wrong-number-of-arguments ; v18, v19
++ ;; load-time check.
++ (or (fboundp 'si:char-after)
++ (progn
++ (fset 'si:char-after (symbol-function 'char-after))
++ (put 'char-after 'defun-maybe t)
++ (defun char-after (&optional pos)
++ "\
+ Return character in current buffer at position POS.
+ POS is an integer or a buffer pointer.
+ If POS is out of range, the value is nil."
+- (si:char-after (or pos (point)))))))
+- (void-function ; NEVER happen?
+- ;; load-time check.
+- (defun-maybe char-after (&optional pos)
+- "\
++ (si:char-after (or pos (point)))))))
++ (void-function ; NEVER happen?
++ ;; load-time check.
++ (defun-maybe char-after (&optional pos)
++ "\
+ Return character in current buffer at position POS.
+ POS is an integer or a buffer pointer.
+ If POS is out of range, the value is nil."
+- (if pos
+- (save-excursion
+- (and (= (goto-char pos) (point))
+- (not (eobp))
+- (following-char)))
+- (and (not (eobp))
+- (following-char)))))
+- (error ; found our definition at compile-time.
+- ;; load-time check.
+- (condition-case nil
+- (char-after)
+- (wrong-number-of-arguments ; v18, v19
+- (or (fboundp 'si:char-after)
+- (progn
+- (fset 'si:char-after (symbol-function 'char-after))
+- (put 'char-after 'defun-maybe t)
+- (defun char-after (&optional pos)
+- "\
++ (if pos
++ (save-excursion
++ (and (= (goto-char pos) (point))
++ (not (eobp))
++ (following-char)))
++ (and (not (eobp))
++ (following-char)))))
++ (error ; found our definition at compile-time.
++ ;; load-time check.
++ (condition-case nil
++ (char-after)
++ (wrong-number-of-arguments ; v18, v19
++ (or (fboundp 'si:char-after)
++ (progn
++ (fset 'si:char-after (symbol-function 'char-after))
++ (put 'char-after 'defun-maybe t)
++ (defun char-after (&optional pos)
++ "\
+ Return character in current buffer at position POS.
+ POS is an integer or a buffer pointer.
+ If POS is out of range, the value is nil."
+- (si:char-after (or pos (point)))))))
+- (void-function ; NEVER happen?
+- (defun-maybe char-after (&optional pos)
+- "\
++ (si:char-after (or pos (point)))))))
++ (void-function ; NEVER happen?
++ (defun-maybe char-after (&optional pos)
++ "\
+ Return character in current buffer at position POS.
+ POS is an integer or a buffer pointer.
+ If POS is out of range, the value is nil."
+- (if pos
+- (save-excursion
+- (and (= (goto-char pos) (point))
+- (not (eobp))
+- (following-char)))
+- (and (not (eobp))
+- (following-char))))))))
++ (if pos
++ (save-excursion
++ (and (= (goto-char pos) (point))
++ (not (eobp))
++ (following-char)))
++ (and (not (eobp))
++ (following-char))))))))
+
+ ;; Emacs 19.29 and later: (buffer-substring-no-properties START END)
+ (defun-maybe buffer-substring-no-properties (start end)
+@@ -813,7 +813,7 @@
*** DIFF OUTPUT TRUNCATED AT 1000 LINES ***
More information about the svn-ports-head
mailing list