projects
/
elisp
/
semi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a1e68b4
)
(symbol-concat): New inline-function; copied from tl-str.el.
author
tmorioka
<tmorioka>
Thu, 27 Feb 1997 13:43:38 +0000
(13:43 +0000)
committer
tmorioka
<tmorioka>
Thu, 27 Feb 1997 13:43:38 +0000
(13:43 +0000)
mime-parse.el
patch
|
blob
|
history
diff --git
a/mime-parse.el
b/mime-parse.el
index
45447cc
..
c380312
100644
(file)
--- a/
mime-parse.el
+++ b/
mime-parse.el
@@
-3,7
+3,7
@@
;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: mime-parse.el,v 0.4 1997-02-27 13:36:22 tmorioka Exp $
+;; Version: $Id: mime-parse.el,v 0.5 1997-02-27 13:43:38 tmorioka Exp $
;; Keywords: parse, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;; Keywords: parse, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@
-28,6
+28,17
@@
(require 'std11)
(require 'mime-def)
(require 'std11)
(require 'mime-def)
+(defsubst symbol-concat (&rest args)
+ "Return a symbol whose name is concatenation of arguments ARGS
+which are string or symbol."
+ (intern (apply (function concat)
+ (mapcar (function
+ (lambda (s)
+ (cond ((symbolp s) (symbol-name s))
+ ((stringp s) s)
+ )))
+ args))))
+
(defmacro define-structure (name &rest slots)
(let ((pred (symbol-concat name '-p)))
(cons 'progn
(defmacro define-structure (name &rest slots)
(let ((pred (symbol-concat name '-p)))
(cons 'progn