Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

update.

  • Loading branch information...
commit 85b5df1ea3b2d2eaa1a1264764c45de33b16ed97 1 parent 539ceb2
morioka authored

Showing 4 changed files with 1 addition and 42 deletions. Show diff stats Hide diff stats

  1. +0 18 ChangeLog
  2. +1 1  Makefile
  3. +0 15 broken.el
  4. +0 8 poe.el
18 ChangeLog
... ... @@ -1,21 +1,3 @@
1   -1998-10-18 Tanaka Akira <morioka@jaist.ac.jp>
2   -
3   - * broken.el (check-broken-facility): Also use compile time
4   - description.
5   -
6   -1998-10-18 MORIOKA Tomohiko <morioka@jaist.ac.jp>
7   -
8   - * APEL: Version 9.4 was released.
9   -
10   -1998-10-17 Tanaka Akira <morioka@jaist.ac.jp>
11   -
12   - * broken.el (check-broken-facility): New macro.
13   -
14   -1998-10-16 MORIOKA Tomohiko <morioka@jaist.ac.jp>
15   -
16   - * poe.el (define-obsolete-function-alias): New function.
17   -
18   -
19 1 1998-10-12 MORIOKA Tomohiko <morioka@jaist.ac.jp>
20 2
21 3 * APEL: Version 9.3 was released.
2  Makefile
@@ -2,7 +2,7 @@
2 2 # Makefile for APEL.
3 3 #
4 4
5   -VERSION = 9.4
  5 +VERSION = 9.3
6 6
7 7 TAR = tar
8 8 RM = /bin/rm -f
15 broken.el
@@ -80,21 +80,6 @@ If ASSERTION is not ommited and evaluated to nil and NO-NOTICE is nil, it is not
80 80 (unless (broken-p facility)
81 81 `(progn . ,body)))
82 82
83   -(defmacro check-broken-facility (facility)
84   - "Check FACILITY is broken or not. If the status is different on
85   -compile(macro expansion) time and run time, warn it."
86   - `(if-broken ,facility
87   - (unless (broken-p ',facility)
88   - (message "COMPILE TIME ONLY BROKEN FACILITY DETECTED: %s"
89   - (or
90   - ',(broken-facility-description facility)
91   - (broken-facility-description ',facility))))
92   - (when (broken-p ',facility)
93   - (message "RUN TIME ONLY BROKEN FACILITY DETECTED: %s"
94   - (or
95   - (broken-facility-description ',facility)
96   - ',(broken-facility-description facility))))))
97   -
98 83
99 84 ;;; @ end
100 85 ;;;
8 poe.el
@@ -375,14 +375,6 @@ This function does not move point. [XEmacs emulating function]"
375 375 (and (consp obj)(eq (car obj) 'lambda))
376 376 ))
377 377
378   -(defsubst-maybe define-obsolete-function-alias (oldfun newfun)
379   - "Define OLDFUN as an obsolete alias for function NEWFUN.
380   -This makes calling OLDFUN equivalent to calling NEWFUN and marks OLDFUN
381   -as obsolete. [XEmacs emulating function]"
382   - (defalias oldfun newfun)
383   - (make-obsolete oldfun newfun)
384   - )
385   -
386 378
387 379 ;;; @ end
388 380 ;;;

0 comments on commit 85b5df1

Please sign in to comment.
Something went wrong with that request. Please try again.