emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r103354: dired-x no longer requires d


From: Glenn Morris
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r103354: dired-x no longer requires dired-aux.
Date: Sat, 19 Feb 2011 12:44:34 -0800
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 103354
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2011-02-19 12:44:34 -0800
message:
  dired-x no longer requires dired-aux.
  
  * lisp/dired-x.el: Don't require dired-aux.
  (dired-do-create-files, dired-mark-read-regexp)
  (dired-do-create-files-regexp): Autoload from dired-aux.
modified:
  lisp/ChangeLog
  lisp/dired-x.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-19 20:36:54 +0000
+++ b/lisp/ChangeLog    2011-02-19 20:44:34 +0000
@@ -22,6 +22,10 @@
 
 2011-02-19  Glenn Morris  <address@hidden>
 
+       * dired-x.el: Don't require dired-aux.
+       (dired-do-create-files, dired-mark-read-regexp)
+       (dired-do-create-files-regexp): Autoload from dired-aux.
+
        * dired-x.el (dired-find-buffer-nocreate): Merge into dired.el.
        * dired.el (dired-find-buffer-nocreate): Merge dired-x version.
 

=== modified file 'lisp/dired-x.el'
--- a/lisp/dired-x.el   2011-02-19 20:36:54 +0000
+++ b/lisp/dired-x.el   2011-02-19 20:44:34 +0000
@@ -53,15 +53,10 @@
 
 ;;; Code:
 
-;; LOAD.
-
 ;; This is a no-op if dired-x is being loaded via `dired-load-hook',
 ;; but maybe not if a dired-x function is being autoloaded.
 (require 'dired)
 
-;; We will redefine some functions and also need some macros.
-(require 'dired-aux)
-
 ;;; User-defined variables.
 
 (defgroup dired-x nil
@@ -1149,6 +1144,8 @@
                                         ; (trailing slash!)
      name2 ok-if-already-exists)))
 
+(autoload 'dired-do-create-files "dired-aux")
+
 ;;;###autoload
 (defun dired-do-relsymlink (&optional arg)
    "Relative symlink all marked (or next ARG) files into a directory.
@@ -1166,6 +1163,9 @@
   (dired-do-create-files 'relsymlink #'dired-make-relative-symlink
                            "RelSymLink" arg dired-keep-marker-relsymlink))
 
+(autoload 'dired-mark-read-regexp "dired-aux")
+(autoload 'dired-do-create-files-regexp "dired-aux")
+
 (defun dired-do-relsymlink-regexp (regexp newname &optional arg whole-name)
   "RelSymlink all marked files containing REGEXP to NEWNAME.
 See functions `dired-do-rename-regexp' and `dired-do-relsymlink'


reply via email to

[Prev in Thread] Current Thread [Next in Thread]