Mercurial > emacs

changeset 86529:6116ad9615de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Standardize order of header items. Delete meaningless header keys. (dired-omit-old-add-entry): Declare as function. Move definition before use. (dired-old-find-buffer-nocreate): Declare as function.
author Glenn Morris <rgm@gnu.org>
date Wed, 28 Nov 2007 03:57:08 +0000
parents db04d9e790f1
children bc8f1a009d53
files lisp/dired-x.el
diffstat 1 files changed, 12 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dired-x.el	Wed Nov 28 03:53:44 2007 +0000
+++ b/lisp/dired-x.el	Wed Nov 28 03:57:08 2007 +0000
@@ -1,15 +1,13 @@
 ;;; dired-x.el --- extra Dired functionality -*-byte-compile-dynamic: t;-*-
 
+;; Copyright (C) 1993, 1994, 1997, 2001, 2002, 2003, 2004,
+;;   2005, 2006, 2007 Free Software Foundation, Inc.
+
 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
 ;;	Lawrence R. Dodd <dodd@roebling.poly.edu>
 ;; Maintainer: Romain Francoise <rfrancoise@gnu.org>
-;; Version: 2.37+
-;; Date: 1994/08/18 19:27:42
 ;; Keywords: dired extensions files
 
-;; Copyright (C) 1993, 1994, 1997, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007 Free Software Foundation, Inc.
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
@@ -652,8 +650,14 @@
         (and fn (string-match regexp fn))))
      msg)))
 
-;; check-declare does not handle fset.
-;;;(declare-function dired-omit-old-add-entry "dired-x")
+;; Compiler does not get fset.
+(declare-function dired-omit-old-add-entry "dired-x")
+
+;;; REDEFINE.
+;;; Redefine dired-aux.el's version of `dired-add-entry'
+;;; Save old defun if not already done:
+(or (fboundp 'dired-omit-old-add-entry)
+    (fset 'dired-omit-old-add-entry (symbol-function 'dired-add-entry)))
 
 ;;; REDEFINE.
 (defun dired-omit-new-add-entry (filename &optional marker-char relative)
@@ -682,11 +686,6 @@
     ;; omitting is not turned on at all
     (dired-omit-old-add-entry filename marker-char relative)))
 
-;;; REDEFINE.
-;;; Redefine dired-aux.el's version of `dired-add-entry'
-;;; Save old defun if not already done:
-(or (fboundp 'dired-omit-old-add-entry)
-    (fset 'dired-omit-old-add-entry (symbol-function 'dired-add-entry)))
 ;; Redefine it.
 (fset 'dired-add-entry 'dired-omit-new-add-entry)
 
@@ -1442,7 +1441,7 @@
 
 ;;; MISCELLANEOUS INTERNAL FUNCTIONS.
 
-;;;(declare-function dired-old-find-buffer-nocreate "dired-x")
+(declare-function dired-old-find-buffer-nocreate "dired-x")
 
 (or (fboundp 'dired-old-find-buffer-nocreate)
     (fset 'dired-old-find-buffer-nocreate