1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
;;; howm-cl.el --- Wiki-like note-taking tool
;;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013
;;; HIRAOKA Kazuyuki <khi@users.sourceforge.jp>
;;; $Id: howm-cl.el,v 1.14 2011-12-31 15:07:29 hira Exp $
;;;
;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 1, or (at your option)
;;; any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; The GNU General Public License is available by anonymouse ftp from
;;; prep.ai.mit.edu in pub/gnu/COPYING. Alternately, you can write to
;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139,
;;; USA.
;;;--------------------------------------------------------------------
;; I know requiring cl is evil.
;; Each defalias should be replaced to defun without cl.
;; (personal note [2005-06-09])
;; $ grep howm-cl *.el | grep -v '^howm' | grep -v '^bcomp'
;; action-lock.el:(require 'howm-cl)
;; action-lock.el: (setq action-lock-rules (howm-cl-remove-duplicates rules))
;; riffle.el:(require 'howm-cl)
;; riffle.el: (stops (howm-cl-remove-duplicates
;; riffle.el: (pos (howm-cl-position c stops))
(require 'cl)
(defalias 'howm-cl-assoc-if 'assoc-if)
(defalias 'howm-cl-find-if 'find-if)
(defalias 'howm-cl-find-if-not 'find-if-not)
(defalias 'howm-cl-gensym 'gensym)
(defalias 'howm-cl-mapcan 'mapcan)
(defalias 'howm-cl-mapcar* 'mapcar*)
(defalias 'howm-cl-member* 'member*)
(defalias 'howm-cl-member-if 'member-if)
(defalias 'howm-cl-position 'position)
(defalias 'howm-cl-position-if 'position-if)
(defalias 'howm-cl-remove-duplicates 'remove-duplicates)
(defalias 'howm-cl-remove-if 'remove-if)
(defalias 'howm-cl-remove-if-not 'remove-if-not)
(defalias 'howm-cl-subseq 'subseq)
(defun howm-cl-remove-duplicates* (&rest args)
":from-end version of `remove-duplicates'"
(apply #'howm-cl-remove-duplicates `(,@args :from-end t)))
(provide 'howm-cl)
;;; howm-cl.el ends here
|