procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix some ls-lisp oddness.

Browse source 
* lisp/ls-lisp.el (ls-lisp-dired-ignore-case): Make it an obsolete alias.
This commit is contained in:
Glenn Morris 2010-11-10 19:48:46 -08:00
parent d226db8cfe
commit b010e1bafc
2 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2010-11-11 Glenn Morris <rgm@gnu.org>
* ls-lisp.el (ls-lisp-dired-ignore-case): Make it an obsolete alias.
2010-11-10 Glenn Morris <rgm@gnu.org> 2010-11-10 Glenn Morris <rgm@gnu.org>
* printing.el (pr-menu-bind): Doc fix. * printing.el (pr-menu-bind): Doc fix.

12
lisp/ls-lisp.el
View file

@ -86,10 +86,16 @@ option will have no effect until you restart Emacs."
(const UNIX)) (const UNIX))
:group 'ls-lisp) :group 'ls-lisp)
;; Only made an obsolete alias in 23.3. Before that, the initial
;; value was set according to:
;; (or (memq ls-lisp-emulation '(MS-Windows MacOS))
;; (and (boundp 'ls-lisp-dired-ignore-case) ls-lisp-dired-ignore-case))
;; Which isn't the right thing to do.
(define-obsolete-variable-alias 'ls-lisp-dired-ignore-case
'ls-lisp-ignore-case "21.1")
(defcustom ls-lisp-ignore-case (defcustom ls-lisp-ignore-case
;; Name change for consistency with other option names. (memq ls-lisp-emulation '(MS-Windows MacOS))
(or (memq ls-lisp-emulation '(MS-Windows MacOS))
(and (boundp 'ls-lisp-dired-ignore-case) ls-lisp-dired-ignore-case))
"Non-nil causes ls-lisp alphabetic sorting to ignore case." "Non-nil causes ls-lisp alphabetic sorting to ignore case."
:type 'boolean :type 'boolean
:group 'ls-lisp) :group 'ls-lisp)