File emacs-apel-fix-build-error.patch of Package emacs-apel.25460
diff -Nura apel-10.8/atype.el apel-10.8_new/atype.el
--- apel-10.8/atype.el 2005-07-06 02:08:52.000000000 +0000
+++ apel-10.8_new/atype.el 2022-07-22 16:46:05.485672906 +0000
@@ -3,7 +3,7 @@
;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: atype.el,v 6.6 1997/03/10 14:11:23 morioka Exp $
+;; Version: $Id$
;; Keywords: atype
;; This file is part of APEL (A Portable Emacs Library).
diff -Nura apel-10.8/broken.el apel-10.8_new/broken.el
--- apel-10.8/broken.el 2005-07-06 02:08:52.000000000 +0000
+++ apel-10.8_new/broken.el 2022-07-22 16:46:05.493672963 +0000
@@ -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
+ ,@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)
+ ,@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)
+ ,@ 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
diff -Nura apel-10.8/ChangeLog apel-10.8_new/ChangeLog
--- apel-10.8/ChangeLog 2022-07-22 16:44:42.479090648 +0000
+++ apel-10.8_new/ChangeLog 2022-07-22 16:46:05.493672963 +0000
@@ -1,7 +1,36 @@
+2011-07-17 David Maus <dmaus@ictsoc.de>
+
+ * tinycustom.el (defcustom): Use new style backquotes.
+ * static.el (static-if, static-when, static-unless)
+ (static-condition-case, static-defconst): Dto.
+ * pym.el (defun-maybe, defmacro-maybe, defsubst-maybe)
+ (defalias-maybe, defvar-maybe, defconst-maybe, defun-maybe-cond)
+ (defmacro-maybe-cond, defsubst-maybe-cond, def-edebug-spec): Dto.
+ * product.el (product-provide): Dto.
+ * poem-om.el (char-next-index): Dto.
+ * poem-nemacs.el (char-next-index): Dto.
+ * poem-ltn1.el (char-next-index): Dto.
+ * poe.el (save-current-buffer, with-current-buffer)
+ (with-temp-file, with-temp-message, with-temp-buffer)
+ (with-output-to-string): Dto.
+ * poe-18.el (save-match-data): Dto.
+ * pces-raw.el (as-binary-process, as-binary-input-file)
+ (as-binary-output-file): Dto
+ * pces-om.el (as-binary-process, as-binary-input-file)
+ (as-binary-output-file): Dto.
+ * pces-nemacs.el (as-binary-process, as-binary-input-file)
+ (as-binary-output-file): Dto.
+ * pccl.el (define-ccl-program): Dto.
+ * filename.el (filename-special-filter-1): Dto.
+ * broken.el (broken-facility, if-broken, when-broken)
+ (unless-broken, check-broken-facility): Dto.
+
+ [Patch created by HAMANO Kiyoto <khiker.mail@gmail.com>]
+
2013-08-05 Tatsuya Kinoshita <tats@vega.ocn.ne.jp>
- * poe.el: Fix wrong type argument on Emacs 24.3.50 to check
- `make-temp-file'.
+ * poe.el: Fix wrong type argument on Emacs 24.3.50 to check
+ `make-temp-file'.
2010-06-15 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
diff -Nura apel-10.8/file-detect.el apel-10.8_new/file-detect.el
--- apel-10.8/file-detect.el 2005-07-06 02:08:52.000000000 +0000
+++ apel-10.8_new/file-detect.el 2022-07-22 16:46:05.486672914 +0000
@@ -3,7 +3,7 @@
;; Copyright (C) 1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: file-detect.el,v 7.1 1997/11/08 07:40:52 morioka Exp $
+;; Version: $Id$
;; Keywords: file detection, install, module
;; Status: obsoleted
diff -Nura apel-10.8/filename.el apel-10.8_new/filename.el
--- apel-10.8/filename.el 2005-07-06 02:08:52.000000000 +0000
+++ apel-10.8_new/filename.el 2022-07-22 16:46:05.493672963 +0000
@@ -3,7 +3,7 @@
;; Copyright (C) 1996,1997 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: filename.el,v 2.1 1997/11/06 15:50:53 morioka Exp $
+;; Version: $Id$
;; Keywords: file name, string
;; This file is part of APEL (A Portable Emacs Library).
@@ -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))
diff -Nura apel-10.8/make1.bat apel-10.8_new/make1.bat
--- apel-10.8/make1.bat 2001-02-01 03:19:36.000000000 +0000
+++ apel-10.8_new/make1.bat 2022-07-22 16:46:05.488672928 +0000
@@ -1,8 +1,8 @@
echo off
rem MAKE1.BAT for APEL.
rem
-rem Version: $Id: make1.bat,v 1.1 2001-02-01 03:19:36 minakaji Exp $
-rem Last Modified: $Date: 2001-02-01 03:19:36 $
+rem Version: $Id$
+rem Last Modified: $Date$
rem --- argument
rem --- elc : byte compile
diff -Nura apel-10.8/makeit.bat apel-10.8_new/makeit.bat
--- apel-10.8/makeit.bat 2001-02-01 03:19:36.000000000 +0000
+++ apel-10.8_new/makeit.bat 2022-07-22 16:46:05.488672928 +0000
@@ -5,8 +5,8 @@
rem --- cmail ML member
rem --- modified 1999/12/01, Yuh Ohmura, mailto:yutopia@t3.rim.or.jp
rem --- modified 2000/12/26, Takeshi Morishima mailto:tm@interaccess.com
-rem --- date $Date: 2001-02-01 03:19:36 $
-rem --- version $Id: makeit.bat,v 1.1 2001-02-01 03:19:36 minakaji Exp $
+rem --- date $Date$
+rem --- version $Id$
set ELISPMK_APP=apel
diff -Nura apel-10.8/mcs-20.el apel-10.8_new/mcs-20.el
--- apel-10.8/mcs-20.el 2005-07-06 02:08:52.000000000 +0000
+++ apel-10.8_new/mcs-20.el 2022-07-22 16:46:05.488672928 +0000
@@ -84,11 +84,13 @@
(if (stringp charset)
(setq charset (intern (downcase charset)))
)
- (let ((cs (assq charset mime-charset-coding-system-alist)))
- (setq cs
- (if cs
- (cdr cs)
- charset))
+ (let ((cs (cdr (assq charset mime-charset-coding-system-alist))))
+ (unless (or (null cs) (find-coding-system cs))
+ (message
+ "Invalid coding system: %s. Confirm mime-charset-coding-system-alist."
+ cs)
+ (setq cs nil))
+ (unless cs (setq cs charset))
(if lbt
(setq cs (intern (format "%s-%s" cs
(cond ((eq lbt 'CRLF) 'dos)
@@ -96,12 +98,11 @@
((eq lbt 'CR) 'mac)
(t lbt)))))
)
- (if (find-coding-system cs)
- cs
- (if mime-charset-to-coding-system-default-method
- (funcall mime-charset-to-coding-system-default-method
- charset lbt cs)
- ))))
+ (or (find-coding-system cs)
+ (if mime-charset-to-coding-system-default-method
+ (funcall mime-charset-to-coding-system-default-method
+ charset lbt cs)
+ ))))
(defalias 'mime-charset-p 'mime-charset-to-coding-system)
@@ -209,6 +210,34 @@
(setq rest (cdr rest)))
default-mime-charset-for-write)))
)
+
+((eval-when-compile (and (boundp 'mule-version)
+ (null (string< mule-version "6.0"))))
+;; for Emacs 23 and later
+(defun detect-mime-charset-string (string)
+ "Return MIME charset for STRING."
+ (let ((src (string-to-list string))
+ tmp)
+ (setq tmp src)
+ ;; Uniquify the list of characters.
+ (while tmp
+ (setq tmp (setcdr tmp (delq (car tmp) (cdr tmp)))))
+ ;; Detect charset from the list of characters.
+ (catch 'found
+ (mapc (lambda (cons)
+ (catch 'next
+ (mapc (lambda (ch) (unless (char-charset ch (car cons))
+ (throw 'next nil)))
+ src)
+ (throw 'found (cdr cons))))
+ charsets-mime-charset-alist)
+ default-mime-charset-for-write)))
+
+(defsubst detect-mime-charset-region (start end)
+ "Return MIME charset for region between START and END."
+ (detect-mime-charset-string
+ (buffer-substring-no-properties start end))))
+
(t
;; for legacy Mule
(defun detect-mime-charset-region (start end)
diff -Nura apel-10.8/mcs-e20.el apel-10.8_new/mcs-e20.el
--- apel-10.8/mcs-e20.el 2005-07-06 02:08:52.000000000 +0000
+++ apel-10.8_new/mcs-e20.el 2022-07-22 16:46:05.488672928 +0000
@@ -90,11 +90,15 @@
((ascii korean-ksc5601) . euc-kr)
((ascii chinese-gb2312) . gb2312)
((ascii chinese-big5-1 chinese-big5-2) . big5)
- ((ascii thai-tis620 composition) . tis-620)
- ((ascii latin-iso8859-1 greek-iso8859-7
- latin-jisx0201 japanese-jisx0208-1978
- chinese-gb2312 japanese-jisx0208
- korean-ksc5601 japanese-jisx0212) . iso-2022-jp-2)
+ ,(static-cond
+ ((null (string< mule-version "6.0"))
+ '((ascii thai-tis620) . tis-620))
+ (t
+ '((ascii thai-tis620 composition) . tis-620)))
+ ;; ((ascii latin-iso8859-1 greek-iso8859-7
+ ;; latin-jisx0201 japanese-jisx0208-1978
+ ;; chinese-gb2312 japanese-jisx0208
+ ;; korean-ksc5601 japanese-jisx0212) . iso-2022-jp-2)
;;((ascii latin-iso8859-1 greek-iso8859-7
;; latin-jisx0201 japanese-jisx0208-1978
;; chinese-gb2312 japanese-jisx0208
@@ -119,8 +123,16 @@
(defun coding-system-to-mime-charset (coding-system)
"Convert CODING-SYSTEM to a MIME-charset.
Return nil if corresponding MIME-charset is not found."
- (or (car (rassq coding-system mime-charset-coding-system-alist))
- (coding-system-get coding-system 'mime-charset)
+ (or (coding-system-get coding-system 'mime-charset)
+ (let ((coding (coding-system-base coding-system))
+ (alist mime-charset-coding-system-alist)
+ result)
+ (while alist
+ (if (eq (coding-system-base (cdar alist)) coding)
+ (setq result (caar alist)
+ alist nil)
+ (setq alist (cdr alist))))
+ result)
))
(defun-maybe-cond mime-charset-list ()
diff -Nura apel-10.8/pccl.el apel-10.8_new/pccl.el
--- apel-10.8/pccl.el 2005-07-06 02:08:53.000000000 +0000
+++ apel-10.8_new/pccl.el 2022-07-22 16:46:05.494672970 +0000
@@ -55,7 +55,7 @@
"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)))
+ (ad-set-arg 1 `',prog)
(while try-ccl-compile
(setq try-ccl-compile nil)
(condition-case sig
@@ -86,12 +86,12 @@
(setq properties (plist-put properties 'pre-write-conversion tmp)))
(cond
((eq type 'shift-jis)
- (` ((, name) 1 (, mnemonic) (, doc-string)
- nil (, properties) (, eol-type))))
+ `(,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)))))
+ `(,name ,type ,doc-string ,props)))
(let ((g0 (plist-get props 'charset-g0))
(g1 (plist-get props 'charset-g1))
(g2 (plist-get props 'charset-g2))
@@ -114,43 +114,43 @@
'japanese-jisx0208-1978))))
(if (charsetp g0)
(if (plist-get props 'force-g0-on-output)
- (setq g0 (` (nil (, g0))))
- (setq g0 (` ((, g0) t)))))
+ (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)))))
+ (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)))))
+ (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))))
+ (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))))
+ `(,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))))))))
+ `(,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."
diff -Nura apel-10.8/pces-nemacs.el apel-10.8_new/pces-nemacs.el
--- apel-10.8/pces-nemacs.el 2005-07-06 02:08:53.000000000 +0000
+++ apel-10.8_new/pces-nemacs.el 2022-07-22 16:46:05.494672970 +0000
@@ -100,20 +100,20 @@
;;;
(defmacro as-binary-process (&rest body)
- (` (let (selective-display ; Disable ^M to nl translation.
- ;; Nemacs
- kanji-flag
- (default-kanji-process-code 0)
- program-kanji-code-alist)
- (,@ body))))
+ `(let (selective-display ; Disable ^M to nl translation.
+ ;; Nemacs
+ kanji-flag
+ (default-kanji-process-code 0)
+ program-kanji-code-alist)
+ ,@ body))
(defmacro as-binary-input-file (&rest body)
- (` (let (kanji-flag default-kanji-flag)
- (,@ body))))
+ `(let (kanji-flag default-kanji-flag)
+ ,@ body))
(defmacro as-binary-output-file (&rest body)
- (` (let (kanji-flag)
- (,@ body))))
+ `(let (kanji-flag)
+ ,@ body))
(defun write-region-as-binary (start end filename
&optional append visit lockname)
diff -Nura apel-10.8/pces-om.el apel-10.8_new/pces-om.el
--- apel-10.8/pces-om.el 2005-07-06 02:08:53.000000000 +0000
+++ apel-10.8_new/pces-om.el 2022-07-22 16:46:05.494672970 +0000
@@ -227,24 +227,24 @@
(make-coding-system 'binary nil ?= "No conversion")
(defmacro as-binary-process (&rest body)
- (` (let (selective-display ; Disable ^M to nl translation.
- ;; Mule
- mc-flag
- (default-process-coding-system (cons *noconv* *noconv*))
- program-coding-system-alist)
- (,@ body))))
+ `(let (selective-display ; Disable ^M to nl translation.
+ ;; Mule
+ mc-flag
+ (default-process-coding-system (cons *noconv* *noconv*))
+ program-coding-system-alist)
+ ,@ body))
(defmacro as-binary-input-file (&rest body)
- (` (let (mc-flag
- (file-coding-system-for-read *noconv*)
- )
- (,@ body))))
+ `(let (mc-flag
+ (file-coding-system-for-read *noconv*)
+ )
+ ,@ body))
(defmacro as-binary-output-file (&rest body)
- (` (let (mc-flag
- (file-coding-system *noconv*)
- )
- (,@ body))))
+ `(let (mc-flag
+ (file-coding-system *noconv*)
+ )
+ ,@ body))
(defalias 'set-process-input-coding-system 'set-process-coding-system)
diff -Nura apel-10.8/pces-raw.el apel-10.8_new/pces-raw.el
--- apel-10.8/pces-raw.el 2005-07-06 02:08:53.000000000 +0000
+++ apel-10.8_new/pces-raw.el 2022-07-22 16:46:05.495672977 +0000
@@ -56,16 +56,16 @@
;;;
(defmacro as-binary-process (&rest body)
- (` (let (selective-display) ; Disable ^M to nl translation.
- (,@ body))))
+ `(let (selective-display) ; Disable ^M to nl translation.
+ ,@ body))
(defmacro as-binary-input-file (&rest body)
- (` (let ((emx-binary-mode t)) ; Stop CRLF to LF conversion in OS/2
- (,@ body))))
+ `(let ((emx-binary-mode t)) ; Stop CRLF to LF conversion in OS/2
+ ,@ body))
(defmacro as-binary-output-file (&rest body)
- (` (let ((emx-binary-mode t)) ; Stop CRLF to LF conversion in OS/2
- (,@ body))))
+ `(let ((emx-binary-mode t)) ; Stop CRLF to LF conversion in OS/2
+ ,@ body))
(defun write-region-as-binary (start end filename
&optional append visit lockname)
diff -Nura apel-10.8/poe-18.el apel-10.8_new/poe-18.el
--- apel-10.8/poe-18.el 2005-07-06 02:08:53.000000000 +0000
+++ apel-10.8_new/poe-18.el 2022-07-22 16:46:05.495672977 +0000
@@ -492,9 +492,9 @@
;; that works ok in practice (people should not use that variable elsewhere).
(defmacro save-match-data (&rest body)
"Execute the BODY forms, restoring the global value of the match data."
- (` (let ((save-match-data-internal (match-data)))
- (unwind-protect (progn (,@ body))
- (set-match-data save-match-data-internal)))))
+ `(let ((save-match-data-internal (match-data)))
+ (unwind-protect (progn ,@ body)
+ (set-match-data save-match-data-internal))))
;;; @ Basic editing commands.
diff -Nura apel-10.8/poe.el apel-10.8_new/poe.el
--- apel-10.8/poe.el 2022-07-22 16:44:42.480090655 +0000
+++ apel-10.8_new/poe.el 2022-07-22 16:46:05.502673026 +0000
@@ -916,20 +916,20 @@
(defmacro-maybe save-current-buffer (&rest body)
"Save the current buffer; execute BODY; restore the current buffer.
Executes BODY just like `progn'."
- (` (let ((orig-buffer (current-buffer)))
- (unwind-protect
- (progn (,@ body))
- (if (buffer-live-p orig-buffer)
- (set-buffer orig-buffer))))))
+ `(let ((orig-buffer (current-buffer)))
+ (unwind-protect
+ (progn ,@ body)
+ (if (buffer-live-p orig-buffer)
+ (set-buffer orig-buffer)))))
;; Emacs 20.1/XEmacs 20.3(?) and later: (with-current-buffer BUFFER &rest BODY)
(defmacro-maybe with-current-buffer (buffer &rest body)
"Execute the forms in BODY with BUFFER as the current buffer.
The value returned is the value of the last form in BODY.
See also `with-temp-buffer'."
- (` (save-current-buffer
- (set-buffer (, buffer))
- (,@ body))))
+ `(save-current-buffer
+ (set-buffer ,buffer)
+ ,@ body))
;; Emacs 20.1/XEmacs 20.3(?) and later: (with-temp-file FILE &rest FORMS)
(defmacro-maybe with-temp-file (file &rest forms)
@@ -938,18 +938,18 @@
See also `with-temp-buffer'."
(let ((temp-file (make-symbol "temp-file"))
(temp-buffer (make-symbol "temp-buffer")))
- (` (let (((, temp-file) (, file))
- ((, temp-buffer)
- (get-buffer-create (generate-new-buffer-name " *temp file*"))))
- (unwind-protect
- (prog1
- (with-current-buffer (, temp-buffer)
- (,@ forms))
- (with-current-buffer (, temp-buffer)
- (widen)
- (write-region (point-min) (point-max) (, temp-file) nil 0)))
- (and (buffer-name (, temp-buffer))
- (kill-buffer (, temp-buffer))))))))
+ `(let ((,temp-file ,file)
+ (,temp-buffer
+ (get-buffer-create (generate-new-buffer-name " *temp file*"))))
+ (unwind-protect
+ (prog1
+ (with-current-buffer ,temp-buffer
+ ,@forms)
+ (with-current-buffer ,temp-buffer
+ (widen)
+ (write-region (point-min) (point-max) ,temp-file nil 0)))
+ (and (buffer-name ,temp-buffer)
+ (kill-buffer ,temp-buffer))))))
;; Emacs 20.4 and later: (with-temp-message MESSAGE &rest BODY)
;; This macro uses `current-message', which appears in v20.
@@ -965,41 +965,41 @@
Use a MESSAGE of \"\" to temporarily clear the echo area."
(let ((current-message (make-symbol "current-message"))
(temp-message (make-symbol "with-temp-message")))
- (` (let (((, temp-message) (, message))
- ((, current-message)))
- (unwind-protect
- (progn
- (when (, temp-message)
- (setq (, current-message) (current-message))
- (message "%s" (, temp-message))
- (,@ body))
- (and (, temp-message) (, current-message)
- (message "%s" (, current-message))))))))))
+ `(let ((,temp-message ,message)
+ (,current-message))
+ (unwind-protect
+ (progn
+ (when ,temp-message
+ (setq ,current-message (current-message))
+ (message "%s" ,temp-message)
+ ,@ body)
+ (and ,temp-message ,current-message
+ (message "%s" ,current-message))))))))
;; Emacs 20.1/XEmacs 20.3(?) and later: (with-temp-buffer &rest FORMS)
(defmacro-maybe with-temp-buffer (&rest forms)
"Create a temporary buffer, and evaluate FORMS there like `progn'.
See also `with-temp-file' and `with-output-to-string'."
(let ((temp-buffer (make-symbol "temp-buffer")))
- (` (let (((, temp-buffer)
- (get-buffer-create (generate-new-buffer-name " *temp*"))))
- (unwind-protect
- (with-current-buffer (, temp-buffer)
- (,@ forms))
- (and (buffer-name (, temp-buffer))
- (kill-buffer (, temp-buffer))))))))
+ `(let ((,temp-buffer
+ (get-buffer-create (generate-new-buffer-name " *temp*"))))
+ (unwind-protect
+ (with-current-buffer ,temp-buffer
+ ,@ forms)
+ (and (buffer-name ,temp-buffer)
+ (kill-buffer ,temp-buffer))))))
;; Emacs 20.1/XEmacs 20.3(?) and later: (with-output-to-string &rest BODY)
(defmacro-maybe with-output-to-string (&rest body)
"Execute BODY, return the text it sent to `standard-output', as a string."
- (` (let ((standard-output
- (get-buffer-create (generate-new-buffer-name " *string-output*"))))
- (let ((standard-output standard-output))
- (,@ body))
- (with-current-buffer standard-output
- (prog1
- (buffer-string)
- (kill-buffer nil))))))
+ `(let ((standard-output
+ (get-buffer-create (generate-new-buffer-name " *string-output*"))))
+ (let ((standard-output standard-output))
+ ,@ body)
+ (with-current-buffer standard-output
+ (prog1
+ (buffer-string)
+ (kill-buffer nil)))))
;; Emacs 20.1 and later: (combine-after-change-calls &rest BODY)
(defmacro-maybe combine-after-change-calls (&rest body)
@@ -1079,11 +1079,11 @@
then capitalize each word in NEWTEXT.
If third arg LITERAL is non-nil, insert NEWTEXT literally.
-Otherwise treat `\' as special:
- `\&' in NEWTEXT means substitute original matched text.
- `\N' means substitute what matched the Nth `\(...\)'.
+Otherwise treat `\\' as special:
+ `\\&' in NEWTEXT means substitute original matched text.
+ `\\N' means substitute what matched the Nth `\\(...\\)'.
If Nth parens didn't match, substitute nothing.
- `\\' means insert one `\'.
+ `\\\\' means insert one `\\'.
FIXEDCASE and LITERAL are optional arguments.
Leaves point at end of replacement text.
@@ -1132,10 +1132,10 @@
If third arg LITERAL is non-nil, insert NEWTEXT literally.
Otherwise treat `\' as special:
- `\&' in NEWTEXT means substitute original matched text.
- `\N' means substitute what matched the Nth `\(...\)'.
+ `\\&' in NEWTEXT means substitute original matched text.
+ `\\N' means substitute what matched the Nth `\\(...\\)'.
If Nth parens didn't match, substitute nothing.
- `\\' means insert one `\'.
+ `\\\\' means insert one `\\'.
FIXEDCASE and LITERAL are optional arguments.
Leaves point at end of replacement text.
@@ -1638,14 +1638,14 @@
(or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp"))))
"The directory for writing temporary files.")
-;; Emacs 21 CVS ; nothing to do.
+;; Emacs 21 CVS and later ; nothing to do.
;; (make-temp-file PREFIX &optional DIR-FLAG SUFFIX)
;;
-;; Emacs 21.1-21.3 ; replace with CVS version of `make-temp-file'.
+;; Emacs 21.1-21.3 ; replace with CVS version of `make-temp-file'.
;; (make-temp-file PREFIX &optional DIR-FLAG)
;;
-;; Emacs 20 and earlier ; install our version of `make-temp-file', for
-;; or XEmacs ; single-user system or for multi-user system.
+;; Emacs 20 and earlier ; install our version of `make-temp-file', for
+;; or XEmacs ; single-user system or for multi-user system.
(eval-when-compile
(cond
((get 'make-temp-file 'defun-maybe)
@@ -1667,11 +1667,15 @@
)))
;; arglist: (prefix &optional dir-flag suffix)
(cond
- ((or (not arglist) (not (listp arglist)))
- ;; `make-temp-file' is a built-in; expects 3-args.
- (put 'make-temp-file 'defun-maybe '3-args))
- ((> (length arglist) 3)
- ;; Emacs 21 CVS.
+ ((or
+ ;; `make-temp-file' is a built-in.
+ (not arglist)
+ ;; Emacs trunk r113642 and later.
+ ;; `make-temp-file' is byte compiled with lexical-binding.
+ (integerp arglist)
+ ;; Emacs 21 CVS and later.
+ ;; `make-temp-file' is byte compiled.
+ (> (length arglist) 3))
(put 'make-temp-file 'defun-maybe '3-args))
(t
;; Emacs 21.1-21.3
@@ -1996,8 +2000,9 @@
returned.
If PROMPT is non-nil, it should be a string and will be displayed in
the echo area while this function is waiting for an event."
- ((and (>= emacs-major-version 20)
- (>= emacs-minor-version 4))
+ ((or (>= emacs-major-version 21)
+ (and (>= emacs-major-version 20)
+ (>= emacs-minor-version 4)))
;; Emacs 20.4 and later.
(read-event prompt)) ; should specify 2nd arg?
((and (= emacs-major-version 20)
diff -Nura apel-10.8/poem-ltn1.el apel-10.8_new/poem-ltn1.el
--- apel-10.8/poem-ltn1.el 2005-07-06 02:08:53.000000000 +0000
+++ apel-10.8_new/poem-ltn1.el 2022-07-22 16:46:05.496672984 +0000
@@ -110,7 +110,7 @@
(defmacro char-next-index (char index)
"Return index of character succeeding CHAR whose index is INDEX."
- (` (1+ (, index))))
+ `(1+ ,index))
;;; @ string
diff -Nura apel-10.8/poem-nemacs.el apel-10.8_new/poem-nemacs.el
--- apel-10.8/poem-nemacs.el 2005-07-06 02:08:53.000000000 +0000
+++ apel-10.8_new/poem-nemacs.el 2022-07-22 16:46:05.496672984 +0000
@@ -140,7 +140,7 @@
(defmacro char-next-index (char index)
"Return index of character succeeding CHAR whose index is INDEX.
\[emu-nemacs.el]"
- (` (+ (, index) (char-bytes (, char)))))
+ `(+ ,index (char-bytes ,char)))
;;; @ string
diff -Nura apel-10.8/poem-om.el apel-10.8_new/poem-om.el
--- apel-10.8/poem-om.el 2005-07-06 02:08:53.000000000 +0000
+++ apel-10.8_new/poem-om.el 2022-07-22 16:46:05.496672984 +0000
@@ -102,7 +102,7 @@
(defmacro char-next-index (char index)
"Return index of character succeeding CHAR whose index is INDEX."
- (` (+ (, index) (char-bytes (, char)))))
+ `(+ ,index (char-bytes ,char)))
;;; @@ obsoleted aliases
diff -Nura apel-10.8/product.el apel-10.8_new/product.el
--- apel-10.8/product.el 2006-04-24 05:53:58.000000000 +0000
+++ apel-10.8_new/product.el 2022-07-22 16:46:05.497672991 +0000
@@ -232,21 +232,21 @@
(product-version (product-version product))
(product-code-name (product-code-name product))
(product-version-string (product-version-string product)))
- (` (progn
- (, product-def)
- (put (, feature) 'product
- (let ((product (product-find-by-name (, product-name))))
- (product-run-checkers product '(, product-version))
- (and (, product-family)
- (product-add-to-family (, product-family)
- (, product-name)))
- (product-add-feature product (, feature))
- (if (equal '(, product-version) (product-version product))
- product
- (vector (, product-name) (, product-family)
- '(, product-version) (, product-code-name)
- nil nil nil (, product-version-string)))))
- (, feature-def)))))
+ `(progn
+ ,product-def
+ (put ,feature 'product
+ (let ((product (product-find-by-name ,product-name)))
+ (product-run-checkers product ',product-version)
+ (and ,product-family
+ (product-add-to-family ,product-family
+ ,product-name))
+ (product-add-feature product ,feature)
+ (if (equal ',product-version (product-version product))
+ product
+ (vector ,product-name ,product-family
+ ',product-version ,product-code-name
+ nil nil nil ,product-version-string))))
+ ,feature-def)))
(defun product-version-as-string (product)
"Return version number of product as a string.
diff -Nura apel-10.8/pym.el apel-10.8_new/pym.el
--- apel-10.8/pym.el 2005-07-06 02:08:53.000000000 +0000
+++ apel-10.8_new/pym.el 2022-07-22 16:46:05.497672991 +0000
@@ -62,32 +62,32 @@
"Define NAME as a function if NAME is not defined.
See also the function `defun'."
(or (and (fboundp name)
- (not (get name 'defun-maybe)))
- (` (or (fboundp (quote (, name)))
- (prog1
- (defun (, name) (,@ everything-else))
- ;; This `defun' will be compiled to `fset',
- ;; which does not update `load-history'.
- ;; We must update `current-load-list' explicitly.
- (setq current-load-list
- (cons (quote (, name)) current-load-list))
- (put (quote (, name)) 'defun-maybe t))))))
+ (not (get name 'defun-maybe)))
+ `(or (fboundp (quote ,name))
+ (prog1
+ (defun ,name ,@ everything-else)
+ ;; This `defun' will be compiled to `fset',
+ ;; which does not update `load-history'.
+ ;; We must update `current-load-list' explicitly.
+ (setq current-load-list
+ (cons (quote ,name) current-load-list))
+ (put (quote ,name) 'defun-maybe t)))))
(put 'defmacro-maybe 'lisp-indent-function 'defun)
(defmacro defmacro-maybe (name &rest everything-else)
"Define NAME as a macro if NAME is not defined.
See also the function `defmacro'."
(or (and (fboundp name)
- (not (get name 'defmacro-maybe)))
- (` (or (fboundp (quote (, name)))
- (prog1
- (defmacro (, name) (,@ everything-else))
- ;; This `defmacro' will be compiled to `fset',
- ;; which does not update `load-history'.
- ;; We must update `current-load-list' explicitly.
- (setq current-load-list
- (cons (quote (, name)) current-load-list))
- (put (quote (, name)) 'defmacro-maybe t))))))
+ (not (get name 'defmacro-maybe)))
+ `(or (fboundp (quote ,name))
+ (prog1
+ (defmacro ,name ,@ everything-else)
+ ;; This `defmacro' will be compiled to `fset',
+ ;; which does not update `load-history'.
+ ;; We must update `current-load-list' explicitly.
+ (setq current-load-list
+ (cons (quote ,name) current-load-list))
+ (put (quote ,name) 'defmacro-maybe t)))))
(put 'defsubst-maybe 'lisp-indent-function 'defun)
(defmacro defsubst-maybe (name &rest everything-else)
@@ -95,51 +95,51 @@
See also the macro `defsubst'."
(or (and (fboundp name)
(not (get name 'defsubst-maybe)))
- (` (or (fboundp (quote (, name)))
- (prog1
- (defsubst (, name) (,@ everything-else))
- ;; This `defsubst' will be compiled to `fset',
- ;; which does not update `load-history'.
- ;; We must update `current-load-list' explicitly.
- (setq current-load-list
- (cons (quote (, name)) current-load-list))
- (put (quote (, name)) 'defsubst-maybe t))))))
+ `(or (fboundp (quote ,name))
+ (prog1
+ (defsubst ,name ,@ everything-else)
+ ;; This `defsubst' will be compiled to `fset',
+ ;; which does not update `load-history'.
+ ;; We must update `current-load-list' explicitly.
+ (setq current-load-list
+ (cons (quote ,name) current-load-list))
+ (put (quote ,name) 'defsubst-maybe t)))))
(defmacro defalias-maybe (symbol definition)
"Define SYMBOL as an alias for DEFINITION if SYMBOL is not defined.
See also the function `defalias'."
(setq symbol (eval symbol))
(or (and (fboundp symbol)
- (not (get symbol 'defalias-maybe)))
- (` (or (fboundp (quote (, symbol)))
- (prog1
- (defalias (quote (, symbol)) (, definition))
- ;; `defalias' updates `load-history' internally.
- (put (quote (, symbol)) 'defalias-maybe t))))))
+ (not (get symbol 'defalias-maybe)))
+ `(or (fboundp (quote ,symbol))
+ (prog1
+ (defalias (quote ,symbol) ,definition)
+ ;; `defalias' updates `load-history' internally.
+ (put (quote ,symbol) 'defalias-maybe t)))))
(defmacro defvar-maybe (name &rest everything-else)
"Define NAME as a variable if NAME is not defined.
See also the function `defvar'."
(or (and (boundp name)
(not (get name 'defvar-maybe)))
- (` (or (boundp (quote (, name)))
- (prog1
- (defvar (, name) (,@ everything-else))
- ;; byte-compiler will generate code to update
- ;; `load-history'.
- (put (quote (, name)) 'defvar-maybe t))))))
+ `(or (boundp (quote ,name))
+ (prog1
+ (defvar ,name ,@ everything-else)
+ ;; byte-compiler will generate code to update
+ ;; `load-history'.
+ (put (quote ,name) 'defvar-maybe t)))))
(defmacro defconst-maybe (name &rest everything-else)
"Define NAME as a constant variable if NAME is not defined.
See also the function `defconst'."
(or (and (boundp name)
- (not (get name 'defconst-maybe)))
- (` (or (boundp (quote (, name)))
- (prog1
- (defconst (, name) (,@ everything-else))
- ;; byte-compiler will generate code to update
- ;; `load-history'.
- (put (quote (, name)) 'defconst-maybe t))))))
+ (not (get name 'defconst-maybe)))
+ `(or (boundp (quote ,name))
+ (prog1
+ (defconst ,name ,@ everything-else)
+ ;; byte-compiler will generate code to update
+ ;; `load-history'.
+ (put (quote ,name) 'defconst-maybe t)))))
(defmacro defun-maybe-cond (name args &optional doc &rest clauses)
"Define NAME as a function if NAME is not defined.
@@ -149,29 +149,29 @@
See also the function `defun'."
(or (stringp doc)
(setq clauses (cons doc clauses)
- doc nil))
+ doc nil))
(or (and (fboundp name)
- (not (get name 'defun-maybe)))
- (` (or (fboundp (quote (, name)))
- (prog1
- (static-cond
- (,@ (mapcar
- (function
- (lambda (case)
- (list (car case)
- (if doc
- (` (defun (, name) (, args)
- (, doc)
- (,@ (cdr case))))
- (` (defun (, name) (, args)
- (,@ (cdr case))))))))
- clauses)))
- ;; This `defun' will be compiled to `fset',
- ;; which does not update `load-history'.
- ;; We must update `current-load-list' explicitly.
- (setq current-load-list
- (cons (quote (, name)) current-load-list))
- (put (quote (, name)) 'defun-maybe t))))))
+ (not (get name 'defun-maybe)))
+ `(or (fboundp (quote ,name))
+ (prog1
+ (static-cond
+ ,@ (mapcar
+ (function
+ (lambda (case)
+ (list (car case)
+ (if doc
+ `(defun ,name ,args
+ ,doc
+ ,@ (cdr case))
+ ` (defun ,name ,args
+ ,@ (cdr case))))))
+ clauses))
+ ;; This `defun' will be compiled to `fset',
+ ;; which does not update `load-history'.
+ ;; We must update `current-load-list' explicitly.
+ (setq current-load-list
+ (cons (quote ,name) current-load-list))
+ (put (quote ,name) 'defun-maybe t)))))
(defmacro defmacro-maybe-cond (name args &optional doc &rest clauses)
"Define NAME as a macro if NAME is not defined.
@@ -184,26 +184,26 @@
doc nil))
(or (and (fboundp name)
(not (get name 'defmacro-maybe)))
- (` (or (fboundp (quote (, name)))
- (prog1
- (static-cond
- (,@ (mapcar
- (function
- (lambda (case)
- (list (car case)
- (if doc
- (` (defmacro (, name) (, args)
- (, doc)
- (,@ (cdr case))))
- (` (defmacro (, name) (, args)
- (,@ (cdr case))))))))
- clauses)))
- ;; This `defmacro' will be compiled to `fset',
- ;; which does not update `load-history'.
- ;; We must update `current-load-list' explicitly.
- (setq current-load-list
- (cons (quote (, name)) current-load-list))
- (put (quote (, name)) 'defmacro-maybe t))))))
+ `(or (fboundp (quote ,name))
+ (prog1
+ (static-cond
+ ,@ (mapcar
+ (function
+ (lambda (case)
+ (list (car case)
+ (if doc
+ `(defmacro ,name ,args
+ ,doc
+ ,@ (cdr case))
+ `(defmacro ,name ,args
+ ,@ (cdr case))))))
+ clauses))
+ ;; This `defmacro' will be compiled to `fset',
+ ;; which does not update `load-history'.
+ ;; We must update `current-load-list' explicitly.
+ (setq current-load-list
+ (cons (quote ,name) current-load-list))
+ (put (quote ,name) 'defmacro-maybe t)))))
(defmacro defsubst-maybe-cond (name args &optional doc &rest clauses)
"Define NAME as an inline function if NAME is not defined.
@@ -213,29 +213,29 @@
See also the macro `defsubst'."
(or (stringp doc)
(setq clauses (cons doc clauses)
- doc nil))
+ doc nil))
(or (and (fboundp name)
- (not (get name 'defsubst-maybe)))
- (` (or (fboundp (quote (, name)))
- (prog1
- (static-cond
- (,@ (mapcar
- (function
- (lambda (case)
- (list (car case)
- (if doc
- (` (defsubst (, name) (, args)
- (, doc)
- (,@ (cdr case))))
- (` (defsubst (, name) (, args)
- (,@ (cdr case))))))))
- clauses)))
- ;; This `defsubst' will be compiled to `fset',
- ;; which does not update `load-history'.
- ;; We must update `current-load-list' explicitly.
- (setq current-load-list
- (cons (quote (, name)) current-load-list))
- (put (quote (, name)) 'defsubst-maybe t))))))
+ (not (get name 'defsubst-maybe)))
+ `(or (fboundp (quote ,name))
+ (prog1
+ (static-cond
+ ,@ (mapcar
+ (function
+ (lambda (case)
+ (list (car case)
+ (if doc
+ `(defsubst ,name ,args
+ ,doc
+ ,@ (cdr case))
+ `(defsubst ,name ,args
+ ,@ (cdr case))))))
+ clauses))
+ ;; This `defsubst' will be compiled to `fset',
+ ;; which does not update `load-history'.
+ ;; We must update `current-load-list' explicitly.
+ (setq current-load-list
+ (cons (quote ,name) current-load-list))
+ (put (quote ,name) 'defsubst-maybe t)))))
;;; Edebug spec.
@@ -246,7 +246,7 @@
"Set the edebug-form-spec property of SYMBOL according to SPEC.
Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol
\(naming a function\), or a list."
- (` (put (quote (, symbol)) 'edebug-form-spec (quote (, spec)))))
+ `(put (quote ,symbol) 'edebug-form-spec (quote ,spec)))
;; edebug-spec for `def*-maybe' macros.
(def-edebug-spec defun-maybe defun)
diff -Nura apel-10.8/richtext.el apel-10.8_new/richtext.el
--- apel-10.8/richtext.el 2005-07-06 02:08:53.000000000 +0000
+++ apel-10.8_new/richtext.el 2022-07-22 16:46:05.490672942 +0000
@@ -4,7 +4,7 @@
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1995/7/15
-;; Version: $Id: richtext.el,v 3.6 1997/06/28 17:58:34 morioka Exp $
+;; Version: $Id$
;; Keywords: wp, faces, MIME, multimedia
;; This file is not part of GNU Emacs yet.
diff -Nura apel-10.8/static.el apel-10.8_new/static.el
--- apel-10.8/static.el 2005-07-06 02:08:53.000000000 +0000
+++ apel-10.8_new/static.el 2022-07-22 16:46:05.498672998 +0000
@@ -29,38 +29,39 @@
"Like `if', but evaluate COND at compile time."
(if (eval cond)
then
- (` (progn (,@ else)))))
+ `(progn ,@ else)))
(put 'static-when 'lisp-indent-function 1)
(defmacro static-when (cond &rest body)
"Like `when', but evaluate COND at compile time."
(if (eval cond)
- (` (progn (,@ body)))))
+ `(progn ,@ body)))
(put 'static-unless 'lisp-indent-function 1)
(defmacro static-unless (cond &rest body)
"Like `unless', but evaluate COND at compile time."
(if (eval cond)
nil
- (` (progn (,@ body)))))
+ `(progn ,@ body)))
(put 'static-condition-case 'lisp-indent-function 2)
(defmacro static-condition-case (var bodyform &rest handlers)
"Like `condition-case', but evaluate BODYFORM at compile time."
- (eval (` (condition-case (, var)
- (list (quote quote) (, bodyform))
- (,@ (mapcar
- (if var
- (function
- (lambda (h)
- (` ((, (car h))
- (list (quote funcall)
- (function (lambda ((, var)) (,@ (cdr h))))
- (list (quote quote) (, var)))))))
- (function
- (lambda (h)
- (` ((, (car h)) (quote (progn (,@ (cdr h)))))))))
- handlers))))))
+ (eval `(condition-case ,var
+ (list (quote quote) ,bodyform)
+ ,@
+ (mapcar
+ (if var
+ (function
+ (lambda (h)
+ `(,(car h)
+ (list (quote funcall)
+ (function (lambda (,var) ,@ (cdr h)))
+ (list (quote quote) ,var)))))
+ (function
+ (lambda (h)
+ `(,(car h) (quote (progn ,@ (cdr h)))))))
+ handlers))))
(put 'static-defconst 'lisp-indent-function 'defun)
(defmacro static-defconst (symbol initvalue &optional docstring)
@@ -68,8 +69,8 @@
The variable SYMBOL can be referred at both compile time and run time."
(let ((value (eval initvalue)))
- (eval (` (defconst (, symbol) (quote (, value)) (, docstring))))
- (` (defconst (, symbol) (quote (, value)) (, docstring)))))
+ (eval `(defconst ,symbol (quote ,value) ,docstring))
+ `(defconst ,symbol (quote ,value) ,docstring)))
(defmacro static-cond (&rest clauses)
"Like `cond', but evaluate CONDITION part of each clause at compile time."
diff -Nura apel-10.8/tinycustom.el apel-10.8_new/tinycustom.el
--- apel-10.8/tinycustom.el 2005-07-06 02:08:53.000000000 +0000
+++ apel-10.8_new/tinycustom.el 2022-07-22 16:46:05.498672998 +0000
@@ -50,7 +50,7 @@
This is a defcustom only for emulating purpose.
Its effect is just as same as that of defvar."
- (` (defvar (, symbol) (, value) (, doc))))
+ `(defvar ,symbol ,value ,doc))
(defvar-maybe frame-background-mode nil
"*The brightness of the background.
diff -Nura apel-10.8/tinyrich.el apel-10.8_new/tinyrich.el
--- apel-10.8/tinyrich.el 1999-12-20 11:11:45.000000000 +0000
+++ apel-10.8_new/tinyrich.el 2022-07-22 16:46:05.490672942 +0000
@@ -1,5 +1,5 @@
;;;
-;;; $Id: tinyrich.el,v 5.0 1995/09/20 14:45:56 morioka Exp $
+;;; $Id$
;;;
;;; by MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; modified by YAMATE Keiichirou <ics9118@sem1.info.osaka-cu.ac.jp>
