Mercurial > vim
annotate runtime/ftplugin/modula2.vim @ 34134:8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Commit: https://github.com/vim/vim/commit/93197fde0f1db09b1e495cf3eb14a8f42c318b80
Author: Doug Kearns <dougkearns@gmail.com>
Date: Sun Jan 14 20:59:02 2024 +0100
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Problem: The "*.*" browsefilter pattern only matches all files on
Windows (Daryl Lee)
Solution: Use "*" to filter on all platforms but keep "*.*" as the label
text on Windows. (Fixes #12685, Doug Kearns)
The *.* browsefilter pattern used to match "All Files" on Windows is a
legacy of the DOS 8.3 filename wildcard matching algorithm. For reasons
of backward compatibility this still works on Windows to match all
files, even those without an extension.
However, this pattern only matches filenames containing a dot on other
platforms. This often makes files without an extension difficult to
access from the file dialog, e.g., "Makefile"
On Windows it is still standard practice to use "*.*" for the filter
label so ftplugins should use "All Files (*.*)" on Windows and "All
Files (*)" on other platforms. This matches Vim's default browsefilter
values.
This commit also normalises the browsefilter conditional test to check
for the Win32 and GTK GUI features and an unset b:browsefilter.
closes: #12759
Signed-off-by: Doug Kearns <dougkearns@gmail.com>
Signed-off-by: Christian Brabandt <cb@256bit.org>
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Sun, 14 Jan 2024 21:15:03 +0100 |
parents | ff27442e7851 |
children | 7c7432a53a6c |
rev | line source |
---|---|
24468 | 1 " Vim filetype plugin file |
2 " Language: Modula-2 | |
3 " Maintainer: Doug Kearns <dougkearns@gmail.com> | |
34134
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34092
diff
changeset
|
4 " Last Change: 2024 Jan 14 |
24468 | 5 |
6 if exists("b:did_ftplugin") | |
7 finish | |
8 endif | |
9 let b:did_ftplugin = 1 | |
10 | |
11 let s:cpo_save = &cpo | |
12 set cpo&vim | |
13 | |
34092
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
14 let s:dialect = modula2#GetDialect() |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
15 |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
16 if s:dialect ==# "r10" |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
17 setlocal comments=s:(*,m:\ ,e:*),:! |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
18 setlocal commentstring=!\ %s |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
19 else |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
20 setlocal commentstring=(*%s*) |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
21 setlocal comments=s:(*,m:\ ,e:*) |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
22 endif |
24468 | 23 setlocal formatoptions-=t formatoptions+=croql |
24 | |
34092
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
25 let b:undo_ftplugin = "setl com< cms< fo<" |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
26 |
24468 | 27 if exists("loaded_matchit") && !exists("b:match_words") |
34092
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
28 let b:match_ignorecase = 0 |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
29 " the second branch of the middle pattern is intended to match CASE labels |
24468 | 30 let b:match_words = '\<REPEAT\>:\<UNTIL\>,' .. |
34092
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
31 \ '\<\%(BEGIN\|CASE\|FOR\|IF\|LOOP\|WHILE\|WITH\|RECORD\)\>' .. |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
32 \ ':' .. |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
33 \ '\<\%(ELSIF\|ELSE\)\>\|\%(^\s*\)\@<=\w\+\%(\s*\,\s*\w\+\)\=\s*\:=\@!' .. |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
34 \ ':' .. |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
35 \ '\<END\>,' .. |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
36 \ '(\*:\*),<\*:\*>' |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
37 let b:match_skip = 's:Comment\|Pragma' |
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
38 let b:undo_ftplugin ..= " | unlet! b:match_ignorecase b:match_skip b:match_words" |
24468 | 39 endif |
40 | |
41 if (has("gui_win32") || has("gui_gtk")) && !exists("b:browsefilter") | |
34134
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34092
diff
changeset
|
42 let b:browsefilter = "Modula-2 Source Files (*.def, *.mod)\t*.def;*.mod\n" |
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34092
diff
changeset
|
43 if has("win32") |
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34092
diff
changeset
|
44 let b:browsefilter ..= "All Files (*.*)\t*\n" |
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34092
diff
changeset
|
45 else |
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34092
diff
changeset
|
46 let b:browsefilter ..= "All Files (*)\t*\n" |
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34092
diff
changeset
|
47 endif |
34092
ff27442e7851
patch 9.1.0013: Modula2 filetype support lacking
Christian Brabandt <cb@256bit.org>
parents:
24468
diff
changeset
|
48 let b:undo_ftplugin ..= " | unlet! b:browsefilter" |
24468 | 49 endif |
50 | |
51 let &cpo = s:cpo_save | |
52 unlet s:cpo_save | |
53 | |
54 " vim: nowrap sw=2 sts=2 ts=8 noet: |