Permalink
Browse files

=Minor bugfix: set `buffer-quit-function' in all Sunrise panes to cor…

…rectly support `keyboard-escape-quit'.
  • Loading branch information...
escherdragon committed Mar 15, 2012
1 parent a7c9fb4 commit c652a7ff197db4a33b83673ec9efd055e1c2a3ca
Showing with 7 additions and 4 deletions.
  1. +4 −2 sunrise-commander.el
  2. +3 −2 sunrise-x-tree.el
View
@@ -7,7 +7,7 @@
;; Maintainer: José Alfredo Romero L. <escherdragon@gmail.com>
;; Created: 24 Sep 2007
;; Version: 5
-;; RCS Version: $Rev: 412 $
+;; RCS Version: $Rev: 413 $
;; Keywords: files, dired, midnight commander, norton, orthodox
;; URL: http://www.emacswiki.org/emacs/sunrise-commander.el
;; Compatibility: GNU Emacs 22+
@@ -702,6 +702,7 @@ automatically:
(make-local-variable 'revert-buffer-function)
(setq revert-buffer-function 'sr-revert-buffer)
+ (set (make-local-variable 'buffer-quit-function) 'sr-quit)
(set (make-local-variable 'sr-show-file-attributes) sr-show-file-attributes)
(make-local-variable 'hl-line-sticky-flag)
@@ -728,7 +729,8 @@ automatically:
(make-local-variable 'revert-buffer-function)
(setq revert-buffer-function 'sr-revert-buffer)
-
+
+ (set (make-local-variable 'buffer-quit-function) 'sr-quit)
(set (make-local-variable 'sr-show-file-attributes) sr-show-file-attributes)
(make-local-variable 'hl-line-sticky-flag)
View
@@ -1,13 +1,13 @@
;;; sunrise-x-tree.el --- Tree View for the Sunrise Commander File Manager
-;; Copyright (C) 2010 José Alfredo Romero Latouche.
+;; Copyright (C) 2010-2012 José Alfredo Romero Latouche.
;; Author: José Alfredo Romero L. <escherdragon@gmail.com>
;; Štěpán Němec <stepnem@gmail.com>
;; Maintainer: José Alfredo Romero L. <escherdragon@gmail.com>
;; Created: 4 May 2010
;; Version: 1
-;; RCS Version: $Rev: 395 $
+;; RCS Version: $Rev: 413 $
;; Keywords: sunrise commander, directories tree navigation
;; URL: http://www.emacswiki.org/emacs/sunrise-x-tree.el
;; Compatibility: GNU Emacs 22+
@@ -922,6 +922,7 @@ Moves files from the active pane to the passive pane."
sr-goto-dir-function 'sr-tree-goto-dir
sr-buttons-command-adapter 'sr-tree-buttons-command-adapter)
(setq dired-omit-mode t)
+ (set (make-local-variable 'buffer-quit-function) 'sr-quit)
(hl-line-mode 1)
(unless sr-tree-root
(sr-tree-build default-directory)))

0 comments on commit c652a7f

Please sign in to comment.