;; (setq PREFIX "/usr/local")
-;; Mule based on Emacs 19.28 and eariler.
+;; Mule based on Emacs 19.28 and earlier.
;; (setq LISPDIR "/usr/local/share/mule/site-lisp")
;; Mule based on Emacs 19.29 and later.
;; (setq LISPDIR "/usr/local/share/emacs/site-lisp")
(install-file): Use `install-overwritten-file-modes'.
(install-elisp-module): Use `install-file'.
+2001-02-23 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * emu.el (char-category for XEmacs): Don't use `int-char' when the
+ function `char-category-list' returns a list of characters.
+
+2001-02-01 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
+
+ * README.ja: Updated as to MAKEIT.BAT and MAKE1.BAT.
+ * make1.bat: New file.
+ * makeit.bat: Ditto.
+ * make.bat: Removed.
+
+2001-01-18 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * inv-19.el (next-visible-point): Return the value of `point-max'
+ when the position of next `invisible' property change is not found.
+
+2001-01-15 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * poe-18.el (floor): Removed.
+
+ * timezone.el (timezone-floor): New function.
+ (timezone-fix-time-2): Use `timezone-floor' instead of `floor'.
+
+2000-12-31 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
+
+ * README.ja: Typo fixed.
+
\f
2000-12-30 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
** \e$BE83+$7$?>l=j$G<B9T\e(B
\e$BB>$N%G%#%l%/%H%j!<$K%$%s%9%H!<%k$7$?$/$J$$$J$i!"0J2<$N$3$H$@$1$r$d$C$F\e(B
-\e$B$/$@$5$$\e(B (MS-DOS \e$B7O$N\e(B OS \e$B$N$?$a$K\e(B make.bat \e$B$,MQ0U$5$l$F$$$^$9!#\e(B
-make.bat \e$B$NMxMQ$K$D$$$F$O2<5-!V\e(Bmake.bat \e$B$rMxMQ$9$k\e(B (MS-DOS \e$B7O\e(B OS \e$B$N>l\e(B
-\e$B9g\e(B)\e$B!W$r;2>H$7$F2<$5$$\e(B)\e$B!#\e(B:
+\e$B$/$@$5$$\e(B (MS-DOS \e$B7O$N\e(B OS \e$B$N$?$a$K\e(B MAKEIT.BAT \e$B$,MQ0U$5$l$F$$$^$9!#\e(B
+MAKEIT.BAT \e$B$NMxMQ$K$D$$$F$O2<5-!V\e(BMAKEIT.BAT \e$B$rMxMQ$9$k\e(B (MS-DOS \e$B7O\e(B OS
+\e$B$N>l9g\e(B)\e$B!W$r;2>H$7$F2<$5$$\e(B)\e$B!#\e(B:
% make
\e$B%U%!%$%k\e(B APEL-CFG \e$B$rJT=8$9$k$3$H$GB>$NA*Br<+M3$J@_Dj$r;XDj$9$k$3$H$,$G\e(B
\e$B$-$^$9!#$=$NCf$N%3%a%s%H$rFI$s$G$/$@$5$$!#\e(B
-(c) XEmacs \e$B$N%Q%C%1!<%8$H$7$F%$%s%9%H!<%k$9$k\e(B
+** XEmacs \e$B$N%Q%C%1!<%8$H$7$F%$%s%9%H!<%k$9$k\e(B
XEmacs \e$B$N%Q%C%1!<%8%G%#%l%/%H%j!<$K%$%s%9%H!<%k$9$k>l9g$O!"0J2<$N$3$H\e(B
\e$B$r$7$F$/$@$5$$\e(B:
XEmacs \e$B$N%Q%C%1!<%8%7%9%F%`$O\e(B XEmacs 21.0 \e$B$+$=$l0J9_$rMW5a$9$k$3$H$KCm\e(B
\e$B0U$7$F$/$@$5$$!#\e(B
-** make.bat \e$B$rMxMQ$9$k\e(B (MS-DOS \e$B7O\e(B OS \e$B$N>l9g\e(B)
+** MAKEIT.BAT \e$B$rMxMQ$9$k\e(B (MS-DOS \e$B7O\e(B OS \e$B$N>l9g\e(B)
-MS-DOS \e$B7O$N\e(B OS \e$B$N$?$a$K\e(B make.bat \e$B$,MQ0U$5$l$F$$$^$9!#\e(Bmake.bat \e$B$rMxMQ\e(B
-\e$B$9$k$K$OE:IU$N\e(B make.bat \e$B$rJT=8$9$k$3$H$,I,MW$G$9\e(B (cygwin \e$B4D6-$rMxMQ\e(B
-\e$B$7$F$$$kJ}$O\e(B make.exe \e$B$H\e(B Makefile \e$B$rMxMQ$9$k$3$H$,$G$-$^$9\e(B)\e$B!#\e(B
+MS-DOS \e$B7O$N\e(B OS \e$B$N$?$a$K\e(B MAKEIT.BAT \e$B$H\e(B MAKE1.BAT \e$B$,MQ0U$5$l$F$$$^$9\e(B
+(cygwin \e$B4D6-$rMxMQ$7$F$$$kJ}$O\e(B make.exe \e$B$H\e(B Makefile \e$B$rMxMQ$9$k$3$H$,$G\e(B
+\e$B$-$^$9\e(B)\e$B!#\e(BMAKEIT.BAT \e$B$O!"%$%s%9%H!<%k$N4D6-JQ?t$r@_Dj$7$?8e$K\e(B MAKE1.BAT
+\e$B$r8F=P$7$^$9!#\e(BMAKE1.BAT \e$B$K$h$C$F<B:]$N%$%s%9%H!<%k$KI,MW$J%3%^%s%I$,<B\e(B
+\e$B9T$5$l$^$9!#\e(B
-make.bat \e$B$NCf$G$O\e(B `rem' \e$B$,9TF,$K$"$k9T$O%3%a%s%H$H$7$F07$o$l$^$9!#I,\e(B
-\e$BMW$K1~$8!"\e(B`rem' \e$B$rA^F~$7$?$j!"$^$?$O:o=|$7$?$j$7$F2<$5$$!#\e(B
+\e$B$3$l$i$rMxMQ$9$k$K$O\e(B MAKEIT.BAT \e$B$rJT=8$9$k$3$H$,I,MW$G$9!#0BA4$N$?$a$9\e(B
+\e$B$Y$F$N4D6-JQ?t$N%G%U%)%k%H$NCM$O6uJ8;zNs$K$J$C$F$$$^$9!#$*;H$$$N%7%9%F\e(B
+\e$B%`$K$"$o$;$F$3$l$i$NJQ?t$r;XDj$7$F$/$@$5$$!#\e(B
-make.bat \e$B$G%G%#%U%)%k%H$GM-8z$K$J$C$F$$$k@_Dj$O!"\e(B
+\e$B3+H/!"F0:n3NG'$,\e(B Windows \e$B$G$7$+9T$J$o$l$F$$$J$$$?$a!"8E$$%P!<%8%g%s$N\e(B
+DOS \e$B$G$OF0:n$7$J$$2DG=@-$,$"$j$^$9!#ITET9g$rH/8+$7$?J}$O\e(B
+apel-ja@m17n.org \e$B$^$G$4O"Mm2<$5$$!#\e(B
- set MEADOWVER=1.10
- set PREFIX=c:\usr\meadow
- set EMACS=%PREFIX%\%MEADOWVER%\bin\meadow95.exe
+*** MAKEIT.BAT \e$B$NJT=8\e(B
+
+DOS \e$B$N%P%C%A%U%!%$%k$NCf$G$O\e(B `rem' \e$B$,9TF,$K$"$k9T$O%3%a%s%H$H$7$F07$o\e(B
+\e$B$l$^$9!#I,MW$K1~$8!"\e(BMAKEIT.BAT \e$B$N3F9TF,$K\e(B `rem' \e$B$rA^F~$7$?$j!"$^$?$O:o\e(B
+\e$B=|$7$?$j$7$F2<$5$$!#\e(B
+
+\e$B$^$?!"%P%C%A%U%!%$%kFb$N\e(B `%\e$BJQ?tL>\e(B%' \e$B$O<B9T;~$N4D6-JQ?t$NCM$HCV$-49$($i\e(B
+\e$B$l$^$9!#\e(B
+
+c:\usr\Meadow \e$B$K%$%s%9%H!<%k$5$l$F$$$k\e(B 1.10 \e$B$N\e(B Meadow \e$B$r;HMQ\e(B
+\e$B$7$F$$$k>l9g$NJQ?t@_Dj$NNc$r5s$2$^$9!#\e(B
+
+ set PREFIX=c:\usr\Meadow
+ set EMACS=%PREFIX%\1.10\bin\meadow95.exe
+ set EXEC_PREFIX=
set LISPDIR=%PREFIX%\site-lisp
- set VLISPDIR=%PREFIX%\%MEADOWVER%\site-lisp
+ set VERSION_SPECIFIC_LISPDIR=%PREFIX%\1.10\site-lisp
+ set DEFAULT_MAKE_ARG=elc
-\e$B$G!"\e(Bmeadow \e$B$N%P%$%J%j$,\e(B c:\usr\meadow\1.10\bin\meadow95.exe \e$B$K%$%s%9\e(B
-\e$B%H!<%k$5$l$F$$$k$3$H$rA0Ds$K$7$F$$$^$9!#$=$NA0Ds$K4p$E$-!"\e(BAPEL \e$B$N%b\e(B
-\e$B%8%e!<%k$N$&$A!"\e(Bmeadow \e$B$N%P!<%8%g%s$K0MB8$7$J$$%b%8%e!<%k$r\e(B
+\e$B>e5-$NNc$G$O!"\e(Bmeadow \e$B$N%P%$%J%j$,\e(B c:\usr\Meadow\1.10\bin\meadow95.exe
+\e$B$K%$%s%9%H!<%k$5$l$F$$$k$3$H$rA0Ds$K$7$F$$$^$9!#$=$NA0Ds$K4p$E$-!"\e(BAPEL
+\e$B$N%b%8%e!<%k$N$&$A!"\e(Bmeadow \e$B$N%P!<%8%g%s$K0MB8$7$J$$%b%8%e!<%k$r\e(B
- c:\usr\meadow\site-lisp
+ c:\usr\Meadow\site-lisp
\e$B$K!"%P!<%8%g%s$K0MB8$9$k%b%8%e!<%k$r\e(B
- c:\usr\meadow\1.10\site-lisp
+ c:\usr\Meadow\1.10\site-lisp
-\e$B$K%$%s%9%H!<%k$7$h$&$H$7$^$9!#>e5-$NNc$r;29M$K!"<+J,$N4D6-MQ$N@_Dj$r=q\e(B
-\e$B$-9~$s$G\e(B make.bat \e$B$rF0$+$7$F2<$5$$!#\e(B
+\e$B$K%$%s%9%H!<%k$7$h$&$H$7$^$9!#\e(B
19.3x \e$B0JA0$N\e(B Emacs (\e$BNc$($P\e(B 19.28 \e$B%Y!<%9$N\e(B Mule for Windows) \e$B$K$O%P!<%8%g\e(B
\e$B%s0MB8$N\e(B site-lisp \e$B%G%#%l%/%H%j\e(B (\e$B>e5-$NNc$G8@$($P\e(B
-c:\usr\meadow\1.10\site-lisp) \e$B$,B8:_$;$:!"%G%#%U%)%k%H$G$O\e(B load-path \e$B$b\e(B
+c:\usr\Meadow\1.10\site-lisp) \e$B$,B8:_$;$:!"%G%#%U%)%k%H$G$O\e(B load-path \e$B$b\e(B
\e$BDL$C$F$$$^$;$s!#$3$N>l9g$O\e(B c:\usr\mule\site-lisp \e$B$J$I$N%P!<%8%g%sHs0MB8\e(B
\e$B$N\e(B site-lisp \e$B%G%#%l%/%H%j$K\e(B APEL \e$B$NA4$F$N%b%8%e!<%k$rF~$l$l$PNI$$$G$7$g\e(B
\e$B$&!#\e(B
\e$B%9%H!<%k$7$?J}$O!"@_DjNc$r\e(B apel-ja@m17n.org \e$B$KAw$C$F2<$5$$\e(B (\e$BHs9XFI<T$G\e(B
\e$B$bAw?.$O$G$-$^$9\e(B)\e$B!#\e(B
+
+*** MAKEIT.BAT \e$B$NJT=8$N:]!"CN$C$F$*$/$HJXMx$J\e(B Tips
+
+\e$B0z?t$r;XDj$7$J$$$G\e(B MAKEIT.BAT \e$B$r<B9T$5$;$k$H!"\e(BDEFAULT_MAKE_ARG \e$B$K;XDj\e(B
+\e$B$5$l$F$$$k\e(B target \e$B$,<B9T$5$l$^$9\e(B (\e$B%G%#%U%)%k%H$O0BA4$N$?$a$K\e(B target \e$B$,\e(B
+\e$B6u$K$J$C$F$*$j!"%a%C%;!<%8$@$1EG$$$F;_$^$k$h$&$K$J$C$F$^$9\e(B)\e$B!#\e(B
+
+MAKEIT.BAT \e$B$rJT=8$7$F!"\e(B
+
+ set DEFAULT_MAKE_ARG=install
+
+\e$B$H5-=R$7$F$*$/$3$H$G!"\e(BMAKEIT.BAT \e$B$r%@%V%k%/%j%C%/$9$k$@$1$G%$%s%9%H!<\e(B
+\e$B%k$9$k$3$H$,$G$-$^$9!#\e(B
+
+MAKEIT.BAT \e$B$O!"2<5-$N$$$:$l$+$N%U%!%$%k$,B8:_$9$k$H$-$O!"$=$N%U%!%$%k\e(B
+\e$B$N@_Dj$rM%@h$7$FFI$_9~$`$N$G!"E,59JT=8$7$?\e(B MAKEIT.BAT \e$B$O2<5-$N$$$:$l$+\e(B
+\e$B$N%U%!%$%k$H$7$F!"%3%T!<$7$F%-!<%W$7$F$*$/$H!"%"%C%W%0%l!<%I$N:]$K\e(B
+MAKEIT.BAT \e$B$r:FJT=8$9$kI,MW$,$J$/JXMx$G$9!#\e(B
+
+\e$BM%@h=g$KJB$Y$k$H2<5-$N$h$&$K$J$j$^$9!#2<5-$N\e(B 1-x \e$B$O\e(B apel \e$B@lMQ!"\e(B2-x \e$B$O\e(B
+\e$BF1<o$N\e(B MAKEIT.BAT \e$B$rMxMQ$7$F$$$k\e(B cmail, skk \e$B$H6&DL$7$FMxMQ$9$k$3$H$,$G\e(B
+\e$B$-$^$9!#\e(B
+
+ 1-1. %HOME%\.elispmk.apel.bat
+ 1-2. %HOME%\elisp\elispmk.apel.bat
+ 1-3. %HOME%\config\elispmk.apel.bat
+ 1-4. c:\Program Files\Meadow\elispmk.apel.bat
+ 1-5. c:\Meadow\elispmk.apel.bat
+ 1-6. d:\Meadow\elispmk.apel.bat
+
+ 2-1. %HOME%\.elispmk.bat
+ 2-2. %HOME%\elisp\elispmk.bat
+ 2-3. %HOME%\config\elispmk.bat
+ 2-4. c:\Program Files\Meadow\elispmk.bat
+ 2-5. c:\Meadow\elispmk.bat
+ 2-6. d:\Meadow\elispmk.bat
+
+*** \e$B%P%C%A%U%!%$%k<B9T;~$NCm0U\e(B
+
+MAKEIT.BAT, MAKE1.BAT \e$B$O4D6-JQ?t$rMxMQ$7$F$$$k$?$a$K!"<B9T;~$K4D6-JQ?t\e(B
+\e$B$N$?$a$N%a%b%j3dEv$F$,$G$-$:$K!"%(%i!<$K$J$k$3$H$,$"$j$^$9!#\e(BWindows \e$B$r\e(B
+\e$BMxMQ$7$F$$$k>l9g$O!"\e(BDOSPROMPT \e$B$N%W%m%Q%F%#$G4D6-JQ?t$N=i4|%5%$%:$,!V<+\e(B
+\e$BF0!W$K$J$C$F$$$k$H!"4D6-JQ?t$,@_Dj$G$-$J$$$H$$$&%(%i!<$,=P$k$N$G!"E,Ev\e(B
+\e$B$JCM\e(B (2048 \e$B$J$I\e(B) \e$B$rF~$l$F$*$/I,MW$,$"$j$^$9!#\e(Bnon Windows \e$B$N\e(B DOS \e$B$N>l9g\e(B
+\e$B$O!"\e(Bconfig.sys \e$B$K\e(B
+
+ SHELL=C:\COMMAND.COM /E:4096 /P
+
+\e$B$J$I$H=q$-!"4D6-JQ?t$K3dEv$F2DG=$J%a%b%j$r3NJ]$7$^$9!#\e(BDOS \e$B$N%P!<%8%g%s\e(B
+\e$B$K$h$C$F\e(B /E:nnn \e$B$G;XDj$G$-$k4D6-JQ?tNN0h$N%5%$%:$N@)Ls$,0[$J$j!";XDj$N\e(B
+\e$B;EJ}$,0c$C$?$j!"FCDj$NCM$r;XDj$9$k$HIT6q9g$r@8$8$k2DG=@-$,$"$k$N$G>\$7\e(B
+\e$B$/$O$4MxMQ$N\e(B version \e$B$N%^%K%e%"%kEy$r$4Mw2<$5$$!#\e(B
+
+*** Windows \e$B$N\e(B cvs.exe \e$B$G%A%'%C%/%"%&%H$7$?\e(B MAKEIT.BAT \e$B$rMxMQ$9$k>l9g$NLdBjE@\e(B
+
\e$B$J$*!"\e(BWindows \e$B%M%$%F%#%V$N\e(B cvs.exe (not cygwin) \e$B$rMxMQ$7$F\e(B APEL \e$B$r\e(B
checkout \e$B$7$?>l9g$O!"\e(Bcvs.exe \e$B$K$h$j9TKv%3!<%I$,@55,2=$5$l$F\e(B CRCRLF \e$B$K\e(B
-\e$B$J$C$F$$$k2DG=@-$,$"$j$^$9!#$3$N$h$&$J>l9g!"\e(Bmake.bat \e$B$OF0$-$^$;$s$N$G\e(B
-\e$B9TKv%3!<%I$r\e(B CRLF \e$B$K=$@5$7$F$*;H$$2<$5$$!#$3$NLdBj$K$D$$$F>\$7$/$O!"\e(B
+\e$B$J$C$F$$$k2DG=@-$,$"$j$^$9!#$3$N$h$&$J>l9g!"\e(BMAKEIT.BAT, MAKE1.BAT \e$B$OF0\e(B
+\e$B$-$^$;$s$N$G9TKv%3!<%I$r\e(B CRLF \e$B$K=$@5$7$F$*;H$$2<$5$$!#$3$NLdBj$K$D$$$F\e(B
+\e$B>\$7$/$O!"\e(B
http://openlab.ring.gr.jp/skk/cvswin-ja.html
STRING \e$B$+$i0BA4$J%U%!%$%kL>$rJV$7$^$9!#\e(B
-\e$B$=$l$OJQ?t\e(B 'filename-fileters' \e$B$r;2>H$7$^$9!#$=$NJQ?t$O%U%!%$%kL>$NA*\e(B
+\e$B$=$l$OJQ?t\e(B 'filename-filters' \e$B$r;2>H$7$^$9!#$=$NJQ?t$O%U%!%$%kL>$NA*\e(B
\e$BJL4o$N$?$a$N4X?t$N%j%9%H$G$9!#=i4|@_Dj$NA*JL4o$O0J2<$NJQ?t$r;2>H$7$F$$\e(B
\e$B$^$9!#\e(B
-;;; broken.el --- Emacs broken facility infomation registry.
+;;; broken.el --- Emacs broken facility information registry.
;; Copyright (C) 1998, 1999 Tanaka Akira <akr@jaist.ac.jp>
FACILITY must be symbol.
-If ASSERTION is not ommited and evaluated to nil and NO-NOTICE is nil,
+If ASSERTION is not omitted and evaluated to nil and NO-NOTICE is nil,
it is noticed."
(` (static-if (, assertion)
(eval-and-compile
;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: emulation, compatibility, NEmacs, MULE, Emacs/mule, XEmacs
+;; Keywords: emulation, compatibility, Nemacs, MULE, Emacs/mule, XEmacs
;; This file is part of emu.
CHAR can be any multilingual character
TABLE defaults to the current buffer's category table."
(mapconcat (lambda (chr)
- (char-to-string (int-char chr)))
+ (if (integerp chr)
+ (char-to-string (int-char chr))
+ (char-to-string chr)))
+ ;; `char-category-list' returns a list of
+ ;; characters in XEmacs 21.2.25 and later,
+ ;; otherwise integers.
(char-category-list character)
""))
)
))
)
((boundp 'NEMACS)
- ;; for NEmacs and NEpoch
+ ;; for Nemacs and Nepoch
;; old MULE emulation
(defconst *noconv* 0)
(defun code-convert-string (str ic oc)
"Convert code in STRING from SOURCE code to TARGET code,
-On successful converion, returns the result string,
+On successful conversion, returns the result string,
else returns nil."
(if (not (eq ic oc))
(convert-string-kanji-code str ic oc)
(defun code-convert-string (str ic oc)
"Convert code in STRING from SOURCE code to TARGET code,
-On successful converion, returns the result string,
+On successful conversion, returns the result string,
else returns nil. [emu-latin1.el; old MULE emulating function]"
str)
(get-text-property pos 'invisible))
(defun next-visible-point (pos)
- (save-excursion
- (goto-char (next-single-property-change pos 'invisible))
- (if (eq (following-char) ?\n)
- (forward-char))
- (point)))
+ (if (setq pos (next-single-property-change pos 'invisible))
+ (if (eq ?\n (char-after pos))
+ (1+ pos)
+ pos)
+ (point-max)))
;;; @ end
You can use following PATH styles:
load-path relative: \"PATH/\"
- (it is searched from `defaul-load-path')
+ (it is searched from `default-load-path')
home directory relative: \"~/PATH/\" \"~USER/PATH/\"
absolute path: \"/HOO/BAR/BAZ/\"
(defadvice define-ccl-program
(before accept-long-ccl-program activate)
- "When CCL-PROGRAM is too long, internal buffer is extended automaticaly."
+ "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)))
(defmacro as-binary-process (&rest body)
(` (let (selective-display ; Disable ^M to nl translation.
- ;; NEmacs
+ ;; Nemacs
kanji-flag
(default-kanji-process-code 0)
program-kanji-code-alist)
"Return the absolute value of ARG."
(if (< arg 0) (- arg) arg))
-(defun floor (arg &optional divisor)
- "Return the largest integer no grater than ARG.
-With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR."
- (if (null divisor)
- (setq divisor 1))
- (if (< arg 0)
- (- (/ (- divisor 1 arg) divisor))
- (/ arg divisor)))
-
;;; @ Basic lisp subroutines.
;;;
If fourth arg READ is non-nil, then interpret the result as a lisp object
and return that object:
in other words, do `(car (read-from-string INPUT-STRING))'
-Fifth arg HIST is ignored in this implementatin."
+Fifth arg HIST is ignored in this implementation."
(si:read-from-minibuffer prompt initial-contents keymap read))))
;; Add optional argument `frame'.
(fset 'si:get-buffer-window (symbol-function 'get-buffer-window))
(defun get-buffer-window (buffer &optional frame)
"Return a window currently displaying BUFFER, or nil if none.
-Optional argunemt FRAME is ignored in this implementation."
+Optional argument FRAME is ignored in this implementation."
(si:get-buffer-window buffer))))
(defun walk-windows (proc &optional minibuf all-frames)
if not active. MINIBUF nil or omitted means count the minibuffer iff
it is active. MINIBUF neither t nor nil means not to count the
minibuffer even if it is active.
-Optional third argunemt ALL-FRAMES is ignored in this implementation."
+Optional third argument ALL-FRAMES is ignored in this implementation."
(if (window-minibuffer-p (selected-window))
(setq minibuf t))
(let* ((walk-windows-start (selected-window))
;;; @@ Frame (Emacs 18 cannot make frame)
;;;
-;; The following four are frequently used for manupulating the current frame.
+;; The following four are frequently used for manipulating the current frame.
;; frame.el has `screen-width', `screen-height', `set-screen-width' and
;; `set-screen-height' for backward compatibility and declare them as obsolete.
(defun frame-width (&optional frame)
(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 bytecompiling.
+ ;; 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-maybe charset-after (&optional pos)
"Return charset of a character in current buffer at position POS.
-If POS is nil, it defauls to the current point.
+If POS is nil, it defaults to the current point.
If POS is out of range, the value is nil.
\[Emacs 20.3 emulating function]"
(char-charset (char-after pos))
"Set code-name of PRODUCT to CODE-NAME."
(aset product 3 code-name))
(defun product-set-checkers (product checkers)
- "Set ckecker functions of PRODUCT to CHECKERS."
+ "Set checker functions of PRODUCT to CHECKERS."
(aset product 4 checkers))
(defun product-set-family-products (product products)
"Set family products of PRODUCT to PRODUCTS."
"Add checker function(s) to a product.
PRODUCT is a product structure which returned by `product-define'.
The rest arguments CHECKERS should be functions. These functions
-are regist to the product's checkers list, and will be called by
+are registered to the product's checkers list, and will be called by
`product-run-checkers'.
If a checker is `ignore' will be ignored all checkers after this."
(setq product (product-find product))
(defun product-find (product)
"Find product information.
-If PROCUCT is a product structure, then return PRODUCT itself.
+If PRODUCT is a product structure, then return PRODUCT itself.
If PRODUCT is a string, then find product by name and return a
product structure. If PRODUCT is symbol of feature, then return
the feature's product."
(if (< timezone 0) (- minutes) minutes))))
(t 0)))
+(defun timezone-floor (arg &optional divisor)
+ "Return the largest integer no grater than ARG.
+With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR."
+ (if (null divisor)
+ (setq divisor 1))
+ (if (< arg 0)
+ (- (/ (- divisor 1 arg) divisor))
+ (/ arg divisor)))
+
(defun timezone-time-from-absolute (date seconds)
"Compute the UTC time equivalent to DATE at time SECONDS after midnight.
Return a list suitable as an argument to `current-time-zone',
(seconds-per-day-3 128)
;; (seconds (+ seconds (* days seconds-per-day)))
;; (current-time-arithmetic-base (float 65536))
- ;; (hi (floor (/ seconds current-time-arithmetic-base)))
+ ;; (hi (timezone-floor (/ seconds current-time-arithmetic-base)))
;; (hibase (* hi current-time-arithmetic-base))
- ;; (lo (floor (- seconds hibase)))
+ ;; (lo (timezone-floor (- seconds hibase)))
(seconds-1 (/ seconds 65536))
(seconds-2 (% (/ seconds 256) 256))
(seconds-3 (% seconds 256))
(diff (- (timezone-zone-to-minute timezone)
(timezone-zone-to-minute local)))
(minute (+ minute diff))
- (hour-fix (floor minute 60)))
+ (hour-fix (timezone-floor minute 60)))
(setq hour (+ hour hour-fix))
(setq minute (- minute (* 60 hour-fix)))
;; HOUR may be larger than 24 or smaller than 0.
projects / elisp / apel.git / commitdiff