Skip to content

Commit

Permalink
=Bugfix: avoid "buffer xxx modified" warnings when switching tabs.
Browse files Browse the repository at this point in the history
  • Loading branch information
escherdragon committed Jul 22, 2012
1 parent c92b0aa commit 15ec4db
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions sunrise-x-tabs.el
Expand Up @@ -7,7 +7,7 @@
;; Maintainer: José Alfredo Romero L. <escherdragon@gmail.com> ;; Maintainer: José Alfredo Romero L. <escherdragon@gmail.com>
;; Created: 24 Oct 2009 ;; Created: 24 Oct 2009
;; Version: 1 ;; Version: 1
;; RCS Version: $Rev: 425 $ ;; RCS Version: $Rev: 431 $
;; Keywords: sunrise commander, tabs ;; Keywords: sunrise commander, tabs
;; URL: http://www.emacswiki.org/emacs/sunrise-x-tabs.el ;; URL: http://www.emacswiki.org/emacs/sunrise-x-tabs.el
;; Compatibility: GNU Emacs 22+ ;; Compatibility: GNU Emacs 22+
Expand Down Expand Up @@ -236,7 +236,9 @@ The direction depends on the value of BACK."
(set (sr-symbol sr-selected-window 'buffer) (current-buffer)) (set (sr-symbol sr-selected-window 'buffer) (current-buffer))
(set (sr-symbol sr-selected-window 'directory) default-directory) (set (sr-symbol sr-selected-window 'directory) default-directory)
(unless (eq from-buffer (sr-other 'buffer)) (unless (eq from-buffer (sr-other 'buffer))
(kill-buffer from-buffer)) (with-current-buffer from-buffer
(set-buffer-modified-p nil)
(kill-buffer (current-buffer))))
(revert-buffer) (revert-buffer)
(sr-history-push default-directory))) (sr-history-push default-directory)))
(sr-tabs-refresh)) (sr-tabs-refresh))
Expand Down

0 comments on commit 15ec4db

Please sign in to comment.