Permalink
Browse files

Untabify.

  • Loading branch information...
skeeto committed Aug 17, 2012
1 parent b2f79b6 commit 108ad2ed25c26ebca3223e06ebd5dc072fe6b682
Showing with 6 additions and 6 deletions.
  1. +6 −6 fakespace.el
View
@@ -57,8 +57,8 @@ that are in B and not A."
(let ((diff))
(while (and (not (null a)) (not (null b)))
(while (not (eq (car a) (car b)))
- (push (car b) diff)
- (setq b (cdr b)))
+ (push (car b) diff)
+ (setq b (cdr b)))
(setq a (cdr a))
(setq b (cdr b)))
diff))
@@ -67,15 +67,15 @@ that are in B and not A."
(defmacro defpackage (name &rest args)
(dolist (arg args)
(let ((type (car arg)))
- (cond ((eq type :exports) t) ; interning the symbols is enough
- ((eq type :use) (mapcar (lambda (s) (require s)) (cdr arg))))))
+ (cond ((eq type :exports) t) ; interning the symbols is enough
+ ((eq type :use) (mapcar (lambda (s) (require s)) (cdr arg))))))
(setq old-obarray (atom-list))
`(provide (quote ,name)))
(defmacro end-package ()
(cons 'progn
- (mapcar (lambda (s) `(unintern (quote ,s) nil))
- (atom-difference old-obarray (atom-list))))))
+ (mapcar (lambda (s) `(unintern (quote ,s) nil))
+ (atom-difference old-obarray (atom-list))))))
(provide 'fakespace)

0 comments on commit 108ad2e

Please sign in to comment.