emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/locate.el,v


From: Juanma Barranquero
Subject: [Emacs-diffs] Changes to emacs/lisp/locate.el,v
Date: Mon, 27 Nov 2006 13:54:57 +0000

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      06/11/27 13:54:56

Index: locate.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/locate.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- locate.el   9 Sep 2006 10:33:42 -0000       1.38
+++ locate.el   27 Nov 2006 13:54:56 -0000      1.39
@@ -430,7 +430,7 @@
   (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 @@
   ;; 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 @@
   (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 @@
     (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)))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]