emacs/lisp/dired-x.el

91 ;;   dired-clean-up-after-deletion    ../lisp/dired.el
271     (define-key-after
279     (define-key-after
289     (define-key-after
297     (define-key-after
305     (define-key-after
314     (define-key-after
324     (define-key-after
344 (add-hook 'dired-after-readin-hook 'dired-omit-expunge)
399 (defun dired-clean-up-after-deletion (fn)
400   "Clean up after a deleted file or directory FN.
433 (defun dired-mark-extension (extension &optional marker-char)
446    marker-char))
563 (defvar dired-omit-marker-char ?\017
602 This functions works by temporarily binding `dired-marker-char' to
603 `dired-omit-marker-char' and calling `dired-do-kill-lines'."
618             (let ((dired-marker-char dired-omit-marker-char))
629                                       (goto-char (point-min))
651   (let ((dired-marker-char (if unflag-p ?\s dired-marker-char)))
662 (defun dired-omit-new-add-entry (filename &optional marker-char relative)
681             (dired-omit-old-add-entry filename marker-char relative)
686     (dired-omit-old-add-entry filename marker-char relative)))
737   (goto-char (point-min))
745                     (goto-char (point-min))
754   (goto-char (point-min))
764   (goto-char (point-min))
775     (goto-char (point-min))
898           (goto-char opoint)
1587   (let ((dired-marker-char (if unflag-p ?\040 dired-marker-char))
1605               (forward-char 2)
1608                     (goto-char (match-end 0))
1616               (forward-char mode-len)
1622               (goto-char (match-beginning 1))
1623               (forward-char -1)
1628               (goto-char pos)
1644 				(progn (forward-char 4) (point))
1659 If you change this variable after `dired-x.el' is loaded then do
1668 This function is part of `after-init-hook'."
1690 ;;; Now call it so binding is correct and put on `after-init-hook' in case
1693 (add-hook 'after-init-hook 'dired-x-bind-find-file)
1703 or to test if that file exists.  Use minibuffer after snatching filename."
1715 or to test if that file exists.  Use minibuffer after snatching filename."
1737                     (backward-char 1)))))
1740                         (char-to-string (following-char)))
1743 		(forward-char)
1744 	      (goto-char (point-min)))
1751             (goto-char start)
1752             (if (string-match "[/~]" (char-to-string (preceding-char)))