Mercurial > hg > xemacs-beta

comparison lisp/dired/dired.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents ac2d302a0011
children
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
14 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 14 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 ;; General Public License for more details. 16 ;; General Public License for more details.
17 17
18 ;; You should have received a copy of the GNU General Public License 18 ;; You should have received a copy of the GNU General Public License
19 ;; along with XEmacs; see the file COPYING. If not, write to the Free 19 ;; along with XEmacs; see the file COPYING. If not, write to the
20 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 20 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 ;; Boston, MA 02111-1307, USA.
21 22
22 ;; Rewritten in 1990/1991 to add tree features, file marking and 23 ;; Rewritten in 1990/1991 to add tree features, file marking and
23 ;; sorting by Sebastian Kremer <sk@thp.uni-koeln.de>. 24 ;; sorting by Sebastian Kremer <sk@thp.uni-koeln.de>.
24 25
25 (provide 'dired) 26 (provide 'dired)
842 (setq major-mode 'dired-mode 843 (setq major-mode 'dired-mode
843 mode-name "Dired" 844 mode-name "Dired"
844 case-fold-search nil 845 case-fold-search nil
845 buffer-read-only t 846 buffer-read-only t
846 selective-display t ; for subdirectory hiding 847 selective-display t ; for subdirectory hiding
847 modeline-buffer-identification '("Dired: %17b")) 848 modeline-buffer-identification
849 (list (cons modeline-buffer-id-left-extent "Dired: ")
850 (cons modeline-buffer-id-right-extent "%17b")))
848 (set (make-local-variable 'revert-buffer-function) 851 (set (make-local-variable 'revert-buffer-function)
849 (function dired-revert)) 852 (function dired-revert))
850 (set (make-local-variable 'page-delimiter) 853 (set (make-local-variable 'page-delimiter)
851 "\n\n") 854 "\n\n")
852 (set (make-local-variable 'dired-directory) 855 (set (make-local-variable 'dired-directory)