diff options
| author | Tino Calancha | 2016-12-04 18:12:59 +0900 |
|---|---|---|
| committer | Tino Calancha | 2016-12-04 18:12:59 +0900 |
| commit | 35d547096293a6ee5233ad086d6e27756f092fee (patch) | |
| tree | f5d3edc60d021d3309c6d6b68b3cef7982d9785a | |
| parent | d993aaf9cdbb1d4f14c46b828f1c6caf17443c9b (diff) | |
| download | emacs-35d547096293a6ee5233ad086d6e27756f092fee.tar.gz emacs-35d547096293a6ee5233ad086d6e27756f092fee.zip | |
Fix typo in dired-omit-case-fold-p
* lisp/dired-x.el (dired-omit-case-fold-p):
Write 'file-name-case-insensitive-p' instead of
'file-name-case-sensitive-p'.
Add declaration of 'file-name-case-insensitive-p'.
| -rw-r--r-- | lisp/dired-x.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 88caca458c8..bddf1ebf78d 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el | |||
| @@ -130,10 +130,11 @@ folding to be used on case-insensitive filesystems only." | |||
| 130 | :group 'dired-x | 130 | :group 'dired-x |
| 131 | :version "26.1") | 131 | :version "26.1") |
| 132 | 132 | ||
| 133 | (declare-function file-name-case-insensitive-p "fileio.c" (filename)) | ||
| 133 | (defun dired-omit-case-fold-p (dir) | 134 | (defun dired-omit-case-fold-p (dir) |
| 134 | "Non-nil if `dired-omit-mode' should be case-insensitive in DIR." | 135 | "Non-nil if `dired-omit-mode' should be case-insensitive in DIR." |
| 135 | (if (eq dired-omit-case-fold 'filesystem) | 136 | (if (eq dired-omit-case-fold 'filesystem) |
| 136 | (file-name-case-sensitive-p dir) | 137 | (file-name-case-insensitive-p dir) |
| 137 | dired-omit-case-fold)) | 138 | dired-omit-case-fold)) |
| 138 | 139 | ||
| 139 | ;; For backward compatibility | 140 | ;; For backward compatibility |