65 |
(cond ((and (>= ch 0) (< ch 10)) |
(cond ((and (>= ch 0) (< ch 10)) |
66 |
(setq ans (+ ch (* 10 ans)))) |
(setq ans (+ ch (* 10 ans)))) |
67 |
(t (return nil)))) |
(t (return nil)))) |
68 |
ans)) |
ans) |
69 |
|
|
70 |
(defun info-get-tags (file &aux (lim 0) *match-data* tags files |
(defun info-get-tags (file &aux (lim 0) *match-data* tags files |
71 |
(*case-fold-search* t)) |
(*case-fold-search* t)) |
238 |
(defun get-info-choices (pat type) |
(defun get-info-choices (pat type) |
239 |
(if (eql type 'index) |
(if (eql type 'index) |
240 |
(nodes-from-index pat ) |
(nodes-from-index pat ) |
241 |
(get-nodes pat (car (nth 1 *current-info-data*)))))) |
(get-nodes pat (car (nth 1 *current-info-data*))))) |
242 |
|
|
243 |
(defun add-file (v file &aux (lis v)) |
(defun add-file (v file &aux (lis v)) |
244 |
(while lis |
(while lis |