Change version number and some trivialities

window-purpose-layout.el

@@ -354,11 +354,11 @@ If `purpose-mru-frame-layout' is nil, do nothing."
   "Delete all windows that aren't dedicated to their purpose or buffer."
   (interactive)
   (mapc #'(lambda (window)
-	    (when (window-deletable-p window)
+	    (when (and (window-deletable-p window)
+		       (not (window-dedicated-p window))
+		       (not (purpose-window-purpose-dedicated-p window)))
 	      (delete-window window)))
-	(cl-delete-if #'window-dedicated-p
-		      (cl-delete-if #'purpose-window-purpose-dedicated-p
-				    (window-list)))))
+	(window-list)))
 
 (defun purpose-set-window-purpose (purpose &optional dont-dedicate)
   "Set window's purpose to PURPOSE, and dedicate it.

window-purpose-switch.el

@@ -57,7 +57,7 @@ for signalling an error, or nil for using the regular (purpose-less)
 This hook is called with one argument - the window used for display."
   :group 'purpose
   :type 'hook
-  :package-version "1.2.50")
+  :package-version "1.3")
 
 (defcustom purpose-select-buffer-hook nil
   "Hook to run after selecting a buffer with `purpose-select-buffer'."
@@ -132,7 +132,7 @@ case, `purpose-display-at-top-height' is ignored."
   :group 'purpose
   :type '(choice number
 		 (const nil))
-  :package-version "1.2.50")
+  :package-version "1.3")
 
 (defcustom purpose-display-at-bottom-height 8
   "Height for new windows created by `purpose-display-at-bottom'.
@@ -146,7 +146,7 @@ this case, `purpose-display-at-bottom-height' is ignored."
   :group 'purpose
   :type '(choice number
 		 (const nil))
-  :package-version "1.2.50")
+  :package-version "1.3")
 
 (defcustom purpose-display-at-left-width 32
   "Width for new windows created by `purpose-display-at-left'.
@@ -159,7 +159,7 @@ case, `purpose-display-at-left-width' is ignored."
   :group 'purpose
   :type '(choice number
 		 (const nil))
-  :package-version "1.2.50")
+  :package-version "1.3")
 
 (defcustom purpose-display-at-right-width 32
   "Width for new windows created by `purpose-display-at-right'.
@@ -173,7 +173,7 @@ this case, `purpose-display-at-right-width' is ignored."
   :group 'purpose
   :type '(choice number
 		 (const nil))
-  :package-version "1.2.50")
+  :package-version "1.3")
 
 
 

window-purpose-test.el

@@ -1,3 +1,30 @@
+;;; window-purpose-test.el --- Tests for Purpose
+
+;; Copyright (C) 2015 Bar Magal
+
+;; Author: Bar Magal (2015)
+;; Package: purpose
+
+;; This file is not part of GNU Emacs.
+
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;; This file contains tests for Purpose.
+
+;;; Code:
+
 (ignore-errors
   (when (and  ; undercover.el causes error with Emacs 24.3 and Purpose
 	 (not (version< emacs-version "24.4"))
@@ -970,3 +997,7 @@ new buffer should be displayed in one of the two existing windows."
   (purpose-set-frame-layout (purpose-get-frame-layout))
   (message "resetting frame layout ...")
   (purpose-reset-frame-layout))
+
+(provide 'window-purpose-test)
+
+;;; window-purpose-test.el ends here

window-purpose.el

@@ -4,7 +4,7 @@
 
 ;; Author: Bar Magal (2015)
 ;; Package: purpose
-;; Version: 1.2.50
+;; Version: 1.3
 ;; Keywords: frames
 ;; Homepage: https://github.com/bmag/emacs-purpose
 ;; Package-Requires: ((emacs "24") (cl-lib "0.5") (let-alist "1.0.3") (imenu-list "0.1"))
@@ -71,7 +71,7 @@
 (require 'window-purpose-prefix-overload)
 (require 'window-purpose-fixes)
 
-(defconst purpose-version "1.2.50"
+(defconst purpose-version "1.3"
   "Purpose's version.")