File tree Expand file tree Collapse file tree 1 file changed +5
-13
lines changed Expand file tree Collapse file tree 1 file changed +5
-13
lines changed Original file line number Diff line number Diff line change @@ -1394,19 +1394,11 @@ current `tags-file-name'."
1394
1394
table))
1395
1395
1396
1396
(defun php-build-table-from-path (path )
1397
- (let ((table (make-vector 1022 0 ))
1398
- (files (directory-files
1399
- path
1400
- nil
1401
- " ^function\\ ..+\\ .html$" )))
1402
- (mapc (lambda (file )
1403
- (string-match " \\ .\\ ([-a-zA-Z_0-9]+\\ )\\ .html$" file)
1404
- (intern
1405
- (replace-regexp-in-string
1406
- " -" " _" (substring file (match-beginning 1 ) (match-end 1 )) t )
1407
- table))
1408
- files )
1409
- table))
1397
+ " Return list of PHP function name from `PATH' directory."
1398
+ (cl-loop for file in (directory-files path nil " ^function\\ ..+\\ .html$" )
1399
+ if (string-match " \\ .\\ ([-a-zA-Z_0-9]+\\ )\\ .html$" file)
1400
+ collect (replace-regexp-in-string
1401
+ " -" " _" (substring file (match-beginning 1 ) (match-end 1 )) t )))
1410
1402
1411
1403
; ; Find the pattern we want to complete
1412
1404
; ; find-tag-default from GNU Emacs etags.el
You can’t perform that action at this time.
0 commit comments