Skip to content
Browse files

update.

  • Loading branch information...
1 parent b573b95 commit dd2e437134c830d4be1d525406f464b96654182e morioka committed Oct 18, 1998
Showing with 32 additions and 55 deletions.
  1. +0 −23 ChangeLog
  2. +2 −6 broken.el
  3. +0 −4 emu.el
  4. +9 −0 poe-18.el
  5. +10 −0 poe-19.el
  6. +9 −1 poe-xemacs.el
  7. +2 −21 poe.el
View
23 ChangeLog
@@ -1,26 +1,3 @@
-1998-10-20 MORIOKA Tomohiko <morioka@jaist.ac.jp>
-
- * poe.el (eval-and-compile): New macro.
- Enclose redefinition of `read-string' by `eval-and-compile'.
-
-1998-10-20 MORIOKA Tomohiko <morioka@jaist.ac.jp>
-
- * poe.el (string): New function.
-
-1998-10-19 MORIOKA Tomohiko <morioka@jaist.ac.jp>
-
- * emu.el (char-list-to-string): New function.
-
- * poe-xemacs.el, poe-19.el: Abolish macro `char-list-to-string'.
-
- * poe-18.el: Abolish function `char-list-to-string'.
-
-1998-10-18 Tanaka Akira <morioka@jaist.ac.jp>
-
- * broken.el (check-broken-facility): Also use compile time
- description.
-
-
1998-10-18 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* APEL: Version 9.4 was released.
View
8 broken.el
@@ -86,14 +86,10 @@ 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))))
+ (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))))))
+ (broken-facility-description ',facility)))))
;;; @ end
View
4 emu.el
@@ -82,10 +82,6 @@
(require 'poem)
(require 'mcharset)
-(defsubst char-list-to-string (char-list)
- "Convert list of character CHAR-LIST to string."
- (apply (function string) char-list))
-
(cond ((featurep 'mule)
(cond ((featurep 'xemacs) ; for XEmacs with MULE
;; old Mule emulating aliases
View
9 poe-18.el
@@ -418,6 +418,15 @@ With optional non-nil ALL, force redisplay of all mode-lines.
))
+;;; @ string
+;;;
+
+(defun char-list-to-string (char-list)
+ "Convert list of character CHAR-LIST to string. [poe-18.el]"
+ (mapconcat (function char-to-string) char-list "")
+ )
+
+
;;; @ buffer
;;;
View
10 poe-19.el
@@ -66,6 +66,16 @@
(point)))
+;;; @ string
+;;;
+
+(defmacro char-list-to-string (char-list)
+ "Convert list of character CHAR-LIST to string."
+ (` (mapconcat (function char-to-string)
+ (, char-list)
+ "")))
+
+
;;; @ end
;;;
View
10 poe-xemacs.el
@@ -104,7 +104,15 @@
)
-;;; @ to avoid bug of XEmacs 19.14
+;;; @ string
+;;;
+
+(defmacro char-list-to-string (char-list)
+ "Convert list of character CHAR-LIST to string. [poe-xemacs.el]"
+ `(mapconcat #'char-to-string ,char-list ""))
+
+
+;;; @@ to avoid bug of XEmacs 19.14
;;;
(or (string-match "^../"
View
23 poe.el
@@ -86,16 +86,6 @@
(provide 'xemacs)
(require 'poe-xemacs)
)
- ((>= emacs-major-version 20)
- (require 'poe-19)
- (cond ((fboundp 'string)
- ;; Emacs 20.3 or later
- )
- ((fboundp 'concat-chars)
- ;; Emacs 20.1 or later
- (defalias 'string 'concat-chars)
- ))
- )
((>= emacs-major-version 19)
(require 'poe-19)
)
@@ -107,11 +97,6 @@
;;; @ Emacs 19 emulation
;;;
-(defmacro-maybe eval-and-compile (&rest body)
- "Like `progn', but evaluates the body at compile time and at load time."
- ;; Remember, it's magic.
- (cons 'progn body))
-
(defun-maybe minibuffer-prompt-width ()
"Return the display width of the minibuffer prompt."
(save-excursion
@@ -151,8 +136,9 @@ STRING should be given if the last search was by `string-match' on STRING.
(>= emacs-minor-version 29))
;; for Emacs 19.28 or earlier
(fboundp 'si:read-string)
- (eval-and-compile
+ (progn
(fset 'si:read-string (symbol-function 'read-string))
+
(defun read-string (prompt &optional initial-input history)
"Read a string from the minibuffer, prompting with string PROMPT.
If non-nil, second arg INITIAL-INPUT is a string to insert before reading.
@@ -352,12 +338,7 @@ This function does not move point."
(end-of-line)
(point)))
-(defun-maybe string (&rest chars)
- "Concatenate all the argument characters and make the result a string."
- (mapconcat (function char-to-string) chars "")
- )
-
;;; @ XEmacs emulation
;;;

0 comments on commit dd2e437

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