/[emacs]/emacs/lisp/ls-lisp.el
ViewVC logotype

Diff of /emacs/lisp/ls-lisp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49 by lektu, Thu May 1 11:16:21 2003 UTC revision 1.50 by jpw, Wed May 14 16:19:11 2003 UTC
# Line 216  that work are: A a c i r S s t u U X g G Line 216  that work are: A a c i r S s t u U X g G
216        (if handler        (if handler
217            (funcall handler 'insert-directory file switches            (funcall handler 'insert-directory file switches
218                     wildcard full-directory-p)                     wildcard full-directory-p)
219            ;; Remove --dired switch
220            (if (string-match "--dired " switches)
221                (setq switches (replace-match "" nil nil switches)))
222          ;; Convert SWITCHES to a list of characters.          ;; Convert SWITCHES to a list of characters.
223          (setq switches (delete ?- (append switches nil)))          (setq switches (delete ?- (append switches nil)))
224          (if wildcard          (if wildcard

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26