Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Bugfix (issue #19) fixed compilation warnings

  • Loading branch information...
commit 9ed842f440a3cbeb2a3065d7e41e12fa652c235f 1 parent 4a6752d
@escherdragon authored
Showing with 13 additions and 8 deletions.
  1. +2 −2 sunrise-x-old-checkpoints.el
  2. +11 −6 sunrise-x-tree.el
View
4 sunrise-x-old-checkpoints.el
@@ -7,7 +7,7 @@
;; Maintainer: José Alfredo Romero L. <escherdragon@gmail.com>
;; Created: 28 Dec 2009
;; Version: 1
-;; RCS Version: $Rev: 427 $
+;; RCS Version: $Rev: 449 $
;; Keywords: sunrise commander, old checkpoints
;; URL: http://www.emacswiki.org/emacs/sunrise-x-old-checkpoints.el
;; Compatibility: GNU Emacs 22
@@ -53,7 +53,7 @@
;;; Code:
-(eval-when-compile (require 'sunrise-commander))
+(require 'sunrise-commander)
(defvar sr-checkpoint-registry '(("~" "~/" "~/"))
"Registry of currently defined checkpoints.")
View
17 sunrise-x-tree.el
@@ -7,7 +7,7 @@
;; Maintainer: José Alfredo Romero L. <escherdragon@gmail.com>
;; Created: 4 May 2010
;; Version: 1
-;; RCS Version: $Rev: 440 $
+;; RCS Version: $Rev: 449 $
;; Keywords: sunrise commander, directories tree navigation
;; URL: http://www.emacswiki.org/emacs/sunrise-x-tree.el
;; Compatibility: GNU Emacs 22+
@@ -165,7 +165,12 @@
(require 'sunrise-commander)
(require 'tree-widget)
(require 'hl-line)
-(eval-when-compile (require 'desktop))
+(eval-when-compile (require 'cl)
+ (require 'desktop))
+
+(eval-and-compile
+ (unless (fboundp 'cl-letf)
+ (defalias 'cl-letf 'letf)))
(defcustom sr-tree-explosion-ratio 3
"Maximum number of directory levels to recursively open at a time.
@@ -842,10 +847,10 @@ nil."
Necessary so the basic Dired file manipulation commands can work
in Sunrise Tree View mode."
`(let ((ad-redefinition-action 'accept))
- (letf (((symbol-function 'dired-get-filename)
- (symbol-function 'sr-tree-get-filename))
- ((symbol-function 'dired-show-file-type)
- (symbol-function 'sr-tree-show-file-type)))
+ (cl-letf (((symbol-function 'dired-get-filename)
+ (symbol-function 'sr-tree-get-filename))
+ ((symbol-function 'dired-show-file-type)
+ (symbol-function 'sr-tree-show-file-type)))
,form)))
(defun sr-tree-do-copy ()
Please sign in to comment.
Something went wrong with that request. Please try again.