/[gcl]/gcl/lsp/gcl_info.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_info.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by camm, Sun Sep 18 02:46:35 2005 UTC revision 1.8 by camm, Wed Oct 12 03:12:57 2005 UTC
# Line 65  Line 65 
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))
# Line 238  Line 238 
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

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26