diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-23 14:57:17 -0300 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-23 14:57:17 -0300 |
commit | 4f91a8160fe71295b7ad4d6e3f90f004caa3546c (patch) | |
tree | c0f3f767b785559ee0387e7cfb54a2a1aa06bcd5 /lisp/dos-w32.el | |
parent | 782fc81943849d699d74c3039be80d4068bb3422 (diff) | |
download | emacs-4f91a8160fe71295b7ad4d6e3f90f004caa3546c.tar.gz |
Don't quote lambda expressions with `quote'.
Diffstat (limited to 'lisp/dos-w32.el')
-rw-r--r-- | lisp/dos-w32.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el index 36832df3c67..5dac6d22722 100644 --- a/lisp/dos-w32.el +++ b/lisp/dos-w32.el @@ -228,10 +228,10 @@ dealing with untranslated filesystems." ;; directory separators changed to directory-sep-char. (let ((name nil)) (setq name (mapconcat - '(lambda (char) - (if (and (<= ?A char) (<= char ?Z)) - (char-to-string (+ (- char ?A) ?a)) - (char-to-string char))) + (lambda (char) + (if (and (<= ?A char) (<= char ?Z)) + (char-to-string (+ (- char ?A) ?a)) + (char-to-string char))) filename nil)) ;; Use expand-file-name to canonicalize directory separators, except ;; with bare drive letters (which would have the cwd appended). |