Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Namespace css-collect (thanks Stan)

  • Loading branch information...
commit 25397dfae523da79fdef29252e63ee13502504b1 1 parent 3d9fe2d
Niels Giesen authored
Showing with 8 additions and 8 deletions.
  1. +8 −8 css-complete.el
View
16 css-complete.el
@@ -1,6 +1,6 @@
;;; css-complete.el --- complete css attributes and properties
-;; Copyright (C) 2009 niels giesen
+;Copyright (C) 2010 by Niels Giesen
;; Author: Niels Giesen <com dot gmail at niels dot giesen, in reversed order>
;; Keywords: css, web, html
@@ -188,14 +188,14 @@
("background-attachment" "fixed" "scroll")
("azimuth" "rightwards" "leftwards" "behind" "right-side" "far-right" "right" "center-right" "center" "center-left" "left" "far-left" "left-side" angle)))
-(defmacro collect (test lst)
+(defmacro css-collect (test lst)
"Return all items in LST for which TEST returns non-nil."
`(loop for v in ,lst
when (funcall ,test v)
collect v))
(defun css-vals-for-prop (prop)
- (collect 'stringp
+ (css-collect 'stringp
(cdr (assoc prop css-props-and-vals))))
(defun css-prop-for-point ()
@@ -219,7 +219,7 @@
(buffer-substring-no-properties beg end)))
(defun css-possible-value-completions (str)
- (collect (lambda (compared-string)
+ (css-collect (lambda (compared-string)
(string-match
(concat "^" str)
compared-string))
@@ -289,7 +289,7 @@
(buffer-substring-no-properties beg end)))
(defun css-possible-prop-completions (str)
- (collect (lambda (compared-string)
+ (css-collect (lambda (compared-string)
(string-match
(concat "^" str)
compared-string))
@@ -344,7 +344,7 @@
(buffer-substring-no-properties beg end)))
(defun css-possible-pseudo-completions (str)
- (collect (lambda (compared-string)
+ (css-collect (lambda (compared-string)
(string-match
(concat "^" str)
compared-string))
@@ -403,7 +403,7 @@
css-tag-ids)
(defun css-possible-tag-completions (str)
- (collect (lambda (compared-string)
+ (css-collect (lambda (compared-string)
(string-match
(concat "^" str)
compared-string))
@@ -460,7 +460,7 @@
css-at-ids)
(defun css-possible-at-completions (str)
- (collect (lambda (compared-string)
+ (css-collect (lambda (compared-string)
(string-match
(concat "^" str)
compared-string))
Please sign in to comment.
Something went wrong with that request. Please try again.