Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
Please login to access the resource
SUSE:SLE-15-SP5:GA
emacs-apel
emacs-apel-fix-build-error.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File emacs-apel-fix-build-error.patch of Package emacs-apel
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>
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
