diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2006-11-27 13:54:56 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2006-11-27 13:54:56 +0000 |
| commit | a861d465fd46bf649023419e49d8186a9658282a (patch) | |
| tree | 90f8467b6ada3eefb5d58a34f1e2f675b18cc768 /lisp/locate.el | |
| parent | 4789a3cb927763472772971cfc1e74c60f9a1839 (diff) | |
| download | emacs-a861d465fd46bf649023419e49d8186a9658282a.tar.gz | |
(locate-main-listing-line-p, locate-mode, locate-do-setup): "?\ " -> "?\s".
Diffstat (limited to 'lisp/locate.el')
| -rw-r--r-- | lisp/locate.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/locate.el b/lisp/locate.el index 9cf37e89ee1..bb3108210ed 100644 --- a/lisp/locate.el +++ b/lisp/locate.el @@ -430,7 +430,7 @@ file name or is inside a subdirectory." (save-excursion (forward-line 0) (looking-at (concat "." - (make-string (1- locate-filename-indentation) ?\ ) + (make-string (1- locate-filename-indentation) ?\s) "\\(/\\|[A-Za-z]:\\)")))) (defun locate-mouse-view-file (event) @@ -478,7 +478,7 @@ do not work in subdirectories. ;; This should support both Unix and Windoze style names (setq directory-listing-before-filename-regexp (concat "^." - (make-string (1- locate-filename-indentation) ?\ ) + (make-string (1- locate-filename-indentation) ?\s) "\\(/\\|[A-Za-z]:\\)\\|" (default-value 'directory-listing-before-filename-regexp))) (make-local-variable 'dired-actual-switches) @@ -486,7 +486,7 @@ do not work in subdirectories. (make-local-variable 'dired-permission-flags-regexp) (setq dired-permission-flags-regexp (concat "^.\\(" - (make-string (1- locate-filename-indentation) ?\ ) + (make-string (1- locate-filename-indentation) ?\s) "\\)\\|" (default-value 'dired-permission-flags-regexp))) (make-local-variable 'revert-buffer-function) @@ -511,7 +511,7 @@ do not work in subdirectories. (locate-insert-header search-string) (while (not (eobp)) - (insert-char ?\ locate-filename-indentation t) + (insert-char ?\s locate-filename-indentation t) (locate-set-properties) (forward-line 1))) (goto-char (point-min))) |