Mercurial > emacs

comparison lisp/dired.el @ 38426:7c443908a552

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-insert-set-properties): Fix invalid mouse-face property.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 16 Jul 2001 10:50:31 +0000
parents a4de79556592
children 8911bc85234c
comparison
equal deleted inserted replaced
38425:c6e12c6b1498 38426:7c443908a552
1 ;;; dired.el --- directory-browsing commands 1 ;;; dired.el --- directory-browsing commands
2 2
3 ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 1997, 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 1997, 2000, 2001
4 ;; Free Software Foundation, Inc.
4 5
5 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de> 6 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
6 ;; Maintainer: FSF 7 ;; Maintainer: FSF
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
738 (add-text-properties 739 (add-text-properties
739 (point) 740 (point)
740 (save-excursion 741 (save-excursion
741 (dired-move-to-end-of-filename) 742 (dired-move-to-end-of-filename)
742 (point)) 743 (point))
743 '(mouse-face 'highlight 744 '(mouse-face highlight
744 help-echo "mouse-2: visit this file in other window"))) 745 help-echo "mouse-2: visit this file in other window")))
745 (error nil)) 746 (error nil))
746 (forward-line 1)))) 747 (forward-line 1))))
747 748
748 (defun dired-insert-headerline (dir);; also used by dired-insert-subdir 749 (defun dired-insert-headerline (dir);; also used by dired-insert-subdir