Mercurial > emacs

comparison lisp/ls-lisp.el @ 111602:f44b93254721

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix some ls-lisp oddness. * lisp/ls-lisp.el (ls-lisp-dired-ignore-case): Make it an obsolete alias.
author Glenn Morris <rgm@gnu.org>
date Wed, 10 Nov 2010 19:48:46 -0800
parents 176c5c4dd786
children 3655cc4062e4 376148b31b5e
comparison
equal deleted inserted replaced
111601:03ddd0223c7a 111602:f44b93254721
84 (const MacOS) 84 (const MacOS)
85 (const MS-Windows) 85 (const MS-Windows)
86 (const UNIX)) 86 (const UNIX))
87 :group 'ls-lisp) 87 :group 'ls-lisp)
88 88
89 ;; Only made an obsolete alias in 23.3. Before that, the initial
90 ;; value was set according to:
91 ;; (or (memq ls-lisp-emulation '(MS-Windows MacOS))
92 ;; (and (boundp 'ls-lisp-dired-ignore-case) ls-lisp-dired-ignore-case))
93 ;; Which isn't the right thing to do.
94 (define-obsolete-variable-alias 'ls-lisp-dired-ignore-case
95 'ls-lisp-ignore-case "21.1")
96
89 (defcustom ls-lisp-ignore-case 97 (defcustom ls-lisp-ignore-case
90 ;; Name change for consistency with other option names. 98 (memq ls-lisp-emulation '(MS-Windows MacOS))
91 (or (memq ls-lisp-emulation '(MS-Windows MacOS))
92 (and (boundp 'ls-lisp-dired-ignore-case) ls-lisp-dired-ignore-case))
93 "Non-nil causes ls-lisp alphabetic sorting to ignore case." 99 "Non-nil causes ls-lisp alphabetic sorting to ignore case."
94 :type 'boolean 100 :type 'boolean
95 :group 'ls-lisp) 101 :group 'ls-lisp)
96 102
97 (defcustom ls-lisp-dirs-first (eq ls-lisp-emulation 'MS-Windows) 103 (defcustom ls-lisp-dirs-first (eq ls-lisp-emulation 'MS-Windows)