[Emacs-diffs] trunk r113711: lisp/frameset.el: Various fixes.

[Juanma Barranquero]

------------------------------------------------------------
revno: 113711
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Tue 2013-08-06 03:26:29 +0200
message:
  lisp/frameset.el: Various fixes.
  (frameset-p): Don't check non-nullness of the `properties'
  slot , which can indeed be nil.
  (frameset-live-filter-alist, frameset-persistent-filter-alist):
  Move entry for `left' from persistent to live filter alist.
  (frameset-filter-alist, frameset--minibufferless-last-p, frameset-save):
  Doc fixes.
  (frameset-filter-params): When restoring a frame, copy items added to
  `filtered', to avoid unwittingly modifying the original parameters.
  (frameset-move-onscreen): Rename from frameset--move-onscreen.  Doc fix.
  (frameset--restore-frame): Fix reference to frameset-move-onscreen.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/frameset.el               frameset.el-20130802043218-tfwraxv1c2zlibpw-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-06 01:03:08 +0000
+++ b/lisp/ChangeLog    2013-08-06 01:26:29 +0000
@@ -1,5 +1,16 @@
 2013-08-06  Juanma Barranquero  <address@hidden>
 
+       * frameset.el (frameset-p): Don't check non-nullness of the `properties'
+       slot , which can indeed be nil.
+       (frameset-live-filter-alist, frameset-persistent-filter-alist):
+       Move entry for `left' from persistent to live filter alist.
+       (frameset-filter-alist, frameset--minibufferless-last-p, frameset-save):
+       Doc fixes.
+       (frameset-filter-params): When restoring a frame, copy items added to
+       `filtered', to avoid unwittingly modifying the original parameters.
+       (frameset-move-onscreen): Rename from frameset--move-onscreen.  Doc fix.
+       (frameset--restore-frame): Fix reference to frameset-move-onscreen.
+
        * dired.el (dired-insert-directory): Revert change in revno:113117
        to use looking-at-p instead of looking-at.  (Bug#15028)
 

=== modified file 'lisp/frameset.el'
--- a/lisp/frameset.el  2013-08-05 13:06:29 +0000
+++ b/lisp/frameset.el  2013-08-06 01:26:29 +0000
@@ -103,7 +103,6 @@
 Else return nil."
   (and (eq (car-safe frameset) 'frameset) ; is a list
        (integerp (nth 1 frameset)) ; version is an int
-       (nth 2 frameset)            ; properties is non-null
        (nth 3 frameset)            ; states is non-null
        (nth 1 frameset)))          ; return version
 
@@ -129,6 +128,7 @@
 ;;;###autoload
 (defvar frameset-live-filter-alist
   '((name           . :never)
+    (left            . frameset-filter-iconified)
     (minibuffer             . frameset-filter-minibuffer)
     (top            . frameset-filter-iconified))
   "Minimum set of parameters to filter for live (on-session) framesets.
@@ -149,7 +149,6 @@
      (GUI:height        . frameset-filter-restore-param)
      (GUI:width                 . frameset-filter-restore-param)
      (height            . frameset-filter-save-param)
-     (left              . frameset-filter-iconified)
      (outer-window-id   . :never)
      (parent-id                 . :never)
      (tty               . frameset-filter-tty-to-GUI)
@@ -194,7 +193,8 @@
  SAVING             Non-nil if filtering before saving state, nil if filtering
                before restoring it.
 
-FILTER-FUN must return:
+FILTER-FUN is allowed to modify items in FILTERED, but no other arguments.
+It must return:
  nil                     Skip CURRENT (do not add it to FILTERED).
  t                       Add CURRENT to FILTERED as is.
  (NEW-PARAM . NEW-VALUE)  Add this to FILTERED instead of CURRENT.
@@ -315,19 +315,24 @@
 nil while the filtering is done to restore it."
   (let ((filtered nil))
     (dolist (current parameters)
+      ;; When saving, the parameter list is temporary, so modifying it
+      ;; is not a problem.  When restoring, the parameter list is part
+      ;; of a frameset, so we must copy parameters to avoid inadvertent
+      ;; modifications.
       (pcase (cdr (assq (car current) filter-alist))
        (`nil
-        (push current filtered))
+        (push (if saving current (copy-tree current)) filtered))
        (:never
         nil)
        (:restore
-        (unless saving (push current filtered)))
+        (unless saving (push (copy-tree current) filtered)))
        (:save
         (when saving (push current filtered)))
        ((or `(,fun . ,args) (and fun (pred fboundp)))
-        (let ((this (apply fun current filtered parameters saving args)))
-          (when this
-            (push (if (eq this t) current this) filtered))))
+        (let* ((this (apply fun current filtered parameters saving args))
+               (val (if (eq this t) current this)))
+          (when val
+            (push (if saving val (copy-tree val)) filtered))))
        (other
         (delay-warning 'frameset (format "Unknown filter %S" other) :error))))
     ;; Set the display parameter after filtering, so that filter functions
@@ -410,7 +415,8 @@
 ;;;###autoload
 (cl-defun frameset-save (frame-list &key filters predicate properties)
   "Return the frameset of FRAME-LIST, a list of frames.
-If nil, FRAME-LIST defaults to all live frames.
+Dead frames and non-frame objects are silently removed from the list.
+If nil, FRAME-LIST defaults to the output of `frame-list' (all live frames).
 FILTERS is an alist of parameter filters; defaults to `frameset-filter-alist'.
 PREDICATE is a predicate function, which must return non-nil for frames that
 should be saved; it defaults to saving all frames from FRAME-LIST.
@@ -445,12 +451,12 @@
     (`(- ,val) (+ right/bottom val))
     (val val)))
 
-(defun frameset--move-onscreen (frame force-onscreen)
+(defun frameset-move-onscreen (frame force-onscreen)
   "If FRAME is offscreen, move it back onscreen and, if necessary, resize it.
 For the description of FORCE-ONSCREEN, see `frameset-restore'.
 When forced onscreen, frames wider than the monitor's workarea are converted
 to fullwidth, and frames taller than the workarea are converted to fullheight.
-NOTE: This only works for non-iconified frames.  Internal use only."
+NOTE: This only works for non-iconified frames."
   (pcase-let* ((`(,left ,top ,width ,height) (cl-cdadr 
(frame-monitor-attributes frame)))
               (right (+ left width -1))
               (bottom (+ top height -1))
@@ -642,7 +648,7 @@
               ;; FIXME: iconified frames should be checked too,
               ;; but it is impossible without deiconifying them.
               (not (eq (frame-parameter frame 'visibility) 'icon)))
-      (frameset--move-onscreen frame force-onscreen))
+      (frameset-move-onscreen frame force-onscreen))
 
     ;; Let's give the finishing touches (visibility, tool-bar, maximization).
     (when lines (push lines alt-cfg))
@@ -652,7 +658,7 @@
     frame))
 
 (defun frameset--minibufferless-last-p (state1 state2)
-  "Predicate to sort frame states in a suitable order to be created.
+  "Predicate to sort frame states in an order suitable for creating frames.
 It sorts minibuffer-owning frames before minibufferless ones."
   (pcase-let ((`(,hasmini1 ,id-def1) (assq 'frameset--mini (car state1)))
              (`(,hasmini2 ,id-def2) (assq 'frameset--mini (car state2))))
@@ -665,7 +671,7 @@
 (defun frameset-keep-original-display-p (force-display)
   "True if saved frames' displays should be honored."
   (cond ((daemonp) t)
-       ((eq system-type 'windows-nt) nil)
+       ((eq system-type 'windows-nt) nil) ;; Does ns support more than one 
display?
        (t (not force-display))))
 
 (defun frameset-minibufferless-first-p (frame1 _frame2)