1 |
;;; erbutils.el --- |
;;; erbutils.el --- |
2 |
;; Time-stamp: <2005-01-07 22:18:32 deego> |
;; Time-stamp: <2005-01-08 12:52:29 deego> |
3 |
;; Copyright (C) 2002 D. Goel |
;; Copyright (C) 2002 D. Goel |
4 |
;; Emacs Lisp Archive entry |
;; Emacs Lisp Archive entry |
5 |
;; Filename: erbutils.el |
;; Filename: erbutils.el |
677 |
(defun erbutils-concat-symbols (&rest args) |
(defun erbutils-concat-symbols (&rest args) |
678 |
"Like `concat' but applies to symbols, and returns an interned |
"Like `concat' but applies to symbols, and returns an interned |
679 |
concatted symbol. Also see fsbot's |
concatted symbol. Also see fsbot's |
680 |
`erbnoc-command-list-from-prefix'. |
`erbn-command-list-from-prefix'. |
681 |
|
|
682 |
Thanks to edrx on #emacs for suggesting 'symbol-name.." |
Thanks to edrx on #emacs for suggesting 'symbol-name.." |
683 |
(let* ((strings (mapcar 'symbol-name args)) |
(let* ((strings (mapcar 'symbol-name args)) |