top  Index  Search  Changes  RSS  Login

howm wiki - DriveLetter Diff

  • Added parts are displayed like this.
  • Deleted parts are displayed like this.

----
← [[BugReport]] (2004-01-31 23:11:38)


Meadowでは

(expand-file-name "Y:/home/")

"Y:/home/"

(expand-file-name "Y:/home/../")

"y:/"

のように、ドライブ名を大文字で指定してしまうと、返ってくるドライブ名が大文字だったり小文字だったりします。このため、単純にstring<で比較していると、ドライブ全体が対象になってしまいます。
----

----
*2004-01-31 (土) 23:15:29 ''[[作者]]'' ''[[Author]]'' : どこの話? どうしたらいいですか? できればパッチ希望です.
*2004-02-01 (日) 01:23:09 ''[[作者]]'' ''[[Author]]'' : パッチ thx. 他も直さなきゃいけなそうなんですけど、win って、case insensitive なのはドライブレターだけ? それともパス全体?
*2004-02-01 (日) 01:25:49 ''[[名無し]]'' : meadow-users にでも流した方がいいような。。。
*2004-02-01 (日) 01:31:03 ''[[作者]]'' ''[[Author]]'' : [[なんでも]] [[Comment]] にも書いたように、「仕様か」「既知か」を調べる気合いがなくて。meadow な方おねがいします。> meadow-users
*2004-02-01 (日) 12:39:18 ''[[松下]]'' : 仕様と見た方がよさそうです。展開時には #define DRIVE_LETTER(x) (tolower (x)) と小文字にしているようです。
*2004-02-06 (金) 21:36:19 ''[[名無しさん]]'' : テスト版で直ったか確認おねがいします
*2004-02-12 (木) 23:20:23 ''[[松下]]'' : わざと変になるように設定して試してみましたが、私の環境では大丈夫のようです。
*2004-02-13 (金) 02:00:21 ''[[hira]]'' ''[[Author]]'' : thx. バックポートして 1.1.0.5 を出そうかと思ってたけど, それよりもさっさと最新版をリリースしてしまおうって方向になりました.
{{comment}}
----

----
こんな感じかな

cd e:/unix/Meadow2/site-lisp/howm/
diff -c "e:/unix/Meadow2/site-lisp/howm/howm-view.el" "d:/akihisa/tmp/"
*** e:/unix/Meadow2/site-lisp/howm/howm-view.el Sat Jan 24 18:13:28 2004
--- d:/home/tmp/howm-view.el Sun Feb  1 00:42:04 2004
***************
*** 697,707 ****
   (defun howm-view-files-sub (dir)
     (setq dir (expand-file-name dir))
     (mapcan (lambda (f)
!             (cond ((file-directory-p f) (let ((d (expand-file-name f)))
!                                           ;; exclude "." & ".."
!                                           (if (string< dir d)
!                                               (howm-view-files d)
!                                             nil)))
                     ((file-regular-p f) (list f))
                     (t nil)))
             (directory-files dir t)))
--- 697,708 ----
   (defun howm-view-files-sub (dir)
     (setq dir (expand-file-name dir))
     (mapcan (lambda (f)
!             (cond ((file-directory-p f)
!                    (let ((d (expand-file-name f)))
!                      ;; exclude "." & ".."
!                      (if (string< (downcase dir) (downcase d))
!                          (howm-view-files d)
!                        nil)))
                     ((file-regular-p f) (list f))
                     (t nil)))
             (directory-files dir t)))
----