Mercurial > emacs
comparison lisp/locate.el @ 74233:4267b07f90ba
(locate-main-listing-line-p, locate-mode, locate-do-setup): "?\ " -> "?\s".
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 27 Nov 2006 13:54:56 +0000 |
| parents | 3e504dad08cd |
| children | e3694f1cb928 f1d13e615070 |
comparison
equal
deleted
inserted
replaced
| 74232:4accd8d9cc3c | 74233:4267b07f90ba |
|---|---|
| 428 This function returns nil if the current line either contains no | 428 This function returns nil if the current line either contains no |
| 429 file name or is inside a subdirectory." | 429 file name or is inside a subdirectory." |
| 430 (save-excursion | 430 (save-excursion |
| 431 (forward-line 0) | 431 (forward-line 0) |
| 432 (looking-at (concat "." | 432 (looking-at (concat "." |
| 433 (make-string (1- locate-filename-indentation) ?\ ) | 433 (make-string (1- locate-filename-indentation) ?\s) |
| 434 "\\(/\\|[A-Za-z]:\\)")))) | 434 "\\(/\\|[A-Za-z]:\\)")))) |
| 435 | 435 |
| 436 (defun locate-mouse-view-file (event) | 436 (defun locate-mouse-view-file (event) |
| 437 "In Locate mode, view a file, using the mouse." | 437 "In Locate mode, view a file, using the mouse." |
| 438 (interactive "@e") | 438 (interactive "@e") |
| 476 (setq dired-switches-alist nil) | 476 (setq dired-switches-alist nil) |
| 477 (make-local-variable 'directory-listing-before-filename-regexp) | 477 (make-local-variable 'directory-listing-before-filename-regexp) |
| 478 ;; This should support both Unix and Windoze style names | 478 ;; This should support both Unix and Windoze style names |
| 479 (setq directory-listing-before-filename-regexp | 479 (setq directory-listing-before-filename-regexp |
| 480 (concat "^." | 480 (concat "^." |
| 481 (make-string (1- locate-filename-indentation) ?\ ) | 481 (make-string (1- locate-filename-indentation) ?\s) |
| 482 "\\(/\\|[A-Za-z]:\\)\\|" | 482 "\\(/\\|[A-Za-z]:\\)\\|" |
| 483 (default-value 'directory-listing-before-filename-regexp))) | 483 (default-value 'directory-listing-before-filename-regexp))) |
| 484 (make-local-variable 'dired-actual-switches) | 484 (make-local-variable 'dired-actual-switches) |
| 485 (setq dired-actual-switches "") | 485 (setq dired-actual-switches "") |
| 486 (make-local-variable 'dired-permission-flags-regexp) | 486 (make-local-variable 'dired-permission-flags-regexp) |
| 487 (setq dired-permission-flags-regexp | 487 (setq dired-permission-flags-regexp |
| 488 (concat "^.\\(" | 488 (concat "^.\\(" |
| 489 (make-string (1- locate-filename-indentation) ?\ ) | 489 (make-string (1- locate-filename-indentation) ?\s) |
| 490 "\\)\\|" | 490 "\\)\\|" |
| 491 (default-value 'dired-permission-flags-regexp))) | 491 (default-value 'dired-permission-flags-regexp))) |
| 492 (make-local-variable 'revert-buffer-function) | 492 (make-local-variable 'revert-buffer-function) |
| 493 (setq revert-buffer-function 'locate-update) | 493 (setq revert-buffer-function 'locate-update) |
| 494 (set (make-local-variable 'page-delimiter) "\n\n") | 494 (set (make-local-variable 'page-delimiter) "\n\n") |
| 509 (error "Locate: no match for %s in database" search-string))))) | 509 (error "Locate: no match for %s in database" search-string))))) |
| 510 | 510 |
| 511 (locate-insert-header search-string) | 511 (locate-insert-header search-string) |
| 512 | 512 |
| 513 (while (not (eobp)) | 513 (while (not (eobp)) |
| 514 (insert-char ?\ locate-filename-indentation t) | 514 (insert-char ?\s locate-filename-indentation t) |
| 515 (locate-set-properties) | 515 (locate-set-properties) |
| 516 (forward-line 1))) | 516 (forward-line 1))) |
| 517 (goto-char (point-min))) | 517 (goto-char (point-min))) |
| 518 | 518 |
| 519 (defun locate-set-properties () | 519 (defun locate-set-properties () |