diff options
| author | Noam Postavsky | 2017-10-24 19:19:37 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2017-10-24 19:22:03 -0400 |
| commit | e8a06a5f9a98094d340dda1c9c8b195f3e66e2c8 (patch) | |
| tree | 188e0fdb6579f1dc75c86b2f2eb6ec566408e080 | |
| parent | 0c536a20fb4833bafea1c2a14b9ff2bac2a3ebd8 (diff) | |
| download | emacs-e8a06a5f9a98094d340dda1c9c8b195f3e66e2c8.tar.gz emacs-e8a06a5f9a98094d340dda1c9c8b195f3e66e2c8.zip | |
Fix compile warning for non-w32 builds
Since 2017-07-25 "ls-lisp: Add an unload function and enable lexical
binding", the non-w32 builds would treat the undeclared
w32-collate-ignore-punctuation variable as lexical.
* lisp/ls-lisp.el (top-level): Declare it as a dynamic variable.
| -rw-r--r-- | lisp/ls-lisp.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el index 66dddbbc17b..caddc7f760b 100644 --- a/lisp/ls-lisp.el +++ b/lisp/ls-lisp.el | |||
| @@ -567,6 +567,8 @@ Responds to the window width as ls should but may not!" | |||
| 567 | (setq list (cdr list))) | 567 | (setq list (cdr list))) |
| 568 | result)) | 568 | result)) |
| 569 | 569 | ||
| 570 | (defvar w32-collate-ignore-punctuation) ; Declare for non-w32 builds. | ||
| 571 | |||
| 570 | (defsubst ls-lisp-string-lessp (s1 s2) | 572 | (defsubst ls-lisp-string-lessp (s1 s2) |
| 571 | "Return t if string S1 should sort before string S2. | 573 | "Return t if string S1 should sort before string S2. |
| 572 | Case is significant if `ls-lisp-ignore-case' is nil. | 574 | Case is significant if `ls-lisp-ignore-case' is nil. |