Mercurial > vim
annotate src/testdir/test33.ok @ 9672:6255ff1ea003 v7.4.2112
commit https://github.com/vim/vim/commit/b56195ed00a9a79aa6217cddbeedbc8cc7a5b6d8
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Jul 28 22:53:37 2016 +0200
patch 7.4.2112
Problem: getcompletion(.., 'dir') returns a match with trailing "*" when
there are no matches. (Chdiza)
Solution: Return an empty list when there are no matches. Add a trailing
slash to directories. (Yegappan Lakshmanan) Add tests for no
matches. (closes #947)
| author | Christian Brabandt <cb@256bit.org> |
|---|---|
| date | Thu, 28 Jul 2016 23:00:06 +0200 |
| parents | 3fc0f57ecb91 |
| children |
| rev | line source |
|---|---|
| 7 | 1 (defun html-file (base) |
| 2 (format nil "~(~A~).html" base)) | |
| 3 | |
| 4 (defmacro page (name title &rest body) | |
| 5 (let ((ti (gensym))) | |
| 6 `(with-open-file (*standard-output* | |
| 7 (html-file ,name) | |
| 8 :direction :output | |
| 9 :if-exists :supersede) | |
| 10 (let ((,ti ,title)) | |
| 11 (as title ,ti) | |
| 12 (with center | |
| 13 (as h2 (string-upcase ,ti))) | |
| 14 (brs 3) | |
| 15 ,@body)))) | |
| 16 | |
| 17 ;;; Utilities for generating links | |
| 18 | |
| 19 (defmacro with-link (dest &rest body) | |
| 20 `(progn | |
| 21 (format t "<a href=\"~A\">" (html-file ,dest)) | |
| 22 ,@body | |
| 23 (princ "</a>"))) |