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

…rectly support `keyboard-escape-quit'.
escherdragon · Mar 15, 2012 · c652a7f · c652a7f
1 parent a7c9fb4
commit c652a7f
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/sunrise-commander.el b/sunrise-commander.el
@@ -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)

diff --git a/sunrise-x-tree.el b/sunrise-x-tree.el
@@ -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)))