aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2014-03-27 02:01:36 +0100
committerJuanma Barranquero2014-03-27 02:01:36 +0100
commit857ba6ec4622ba658788b8cd5805e8e9e8a5db16 (patch)
treee693c5e373a08597911d962d54d5a9ce45dbfaae
parentb1c870c9e8b8fd7001234d60fbb110c028c2f350 (diff)
downloademacs-857ba6ec4622ba658788b8cd5805e8e9e8a5db16.tar.gz
emacs-857ba6ec4622ba658788b8cd5805e8e9e8a5db16.zip
lisp/frameset.el: Fix bug#17046.
(frameset--restore-frame): Remove workaround for bug#14795 which is no longer needed and causes trouble in GTK builds.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/frameset.el8
2 files changed, 4 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b0e3f041ec2..cb256740a03 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
12014-03-27 Juanma Barranquero <lekktu@gmail.com> 12014-03-27 Juanma Barranquero <lekktu@gmail.com>
2 2
3 * frameset.el (frameset--restore-frame): Remove workaround for bug#14795
4 which is no longer needed and causes trouble in GTK builds (bug#17046).
5
3 * emacs-lisp/package-x.el (package--archive-contents-from-url): 6 * emacs-lisp/package-x.el (package--archive-contents-from-url):
4 Use url-insert-file-contents; package-handle-response no longer exists. 7 Use url-insert-file-contents; package-handle-response no longer exists.
5 8
diff --git a/lisp/frameset.el b/lisp/frameset.el
index c1a7ecc16b8..9a474519813 100644
--- a/lisp/frameset.el
+++ b/lisp/frameset.el
@@ -950,15 +950,10 @@ PARAMETERS is the frame's parameter alist; WINDOW-STATE is its window state.
950For the meaning of FILTERS and FORCE-ONSCREEN, see `frameset-restore'. 950For the meaning of FILTERS and FORCE-ONSCREEN, see `frameset-restore'.
951Internal use only." 951Internal use only."
952 (let* ((fullscreen (cdr (assq 'fullscreen parameters))) 952 (let* ((fullscreen (cdr (assq 'fullscreen parameters)))
953 (lines (assq 'tool-bar-lines parameters))
954 (filtered-cfg (frameset-filter-params parameters filters nil)) 953 (filtered-cfg (frameset-filter-params parameters filters nil))
955 (display (cdr (assq 'display filtered-cfg))) ;; post-filtering 954 (display (cdr (assq 'display filtered-cfg))) ;; post-filtering
956 alt-cfg frame) 955 alt-cfg frame)
957 956
958 ;; This works around bug#14795 (or feature#14795, if not a bug :-)
959 (setq filtered-cfg (assq-delete-all 'tool-bar-lines filtered-cfg))
960 (push '(tool-bar-lines . 0) filtered-cfg)
961
962 (when fullscreen 957 (when fullscreen
963 ;; Currently Emacs has the limitation that it does not record the size 958 ;; Currently Emacs has the limitation that it does not record the size
964 ;; and position of a frame before maximizing it, so we cannot save & 959 ;; and position of a frame before maximizing it, so we cannot save &
@@ -1009,8 +1004,7 @@ Internal use only."
1009 (not (eq (frame-parameter frame 'visibility) 'icon))) 1004 (not (eq (frame-parameter frame 'visibility) 'icon)))
1010 (frameset-move-onscreen frame force-onscreen)) 1005 (frameset-move-onscreen frame force-onscreen))
1011 1006
1012 ;; Let's give the finishing touches (visibility, tool-bar, maximization). 1007 ;; Let's give the finishing touches (visibility, maximization).
1013 (when lines (push lines alt-cfg))
1014 (when alt-cfg (modify-frame-parameters frame alt-cfg)) 1008 (when alt-cfg (modify-frame-parameters frame alt-cfg))
1015 ;; Now restore window state. 1009 ;; Now restore window state.
1016 (window-state-put window-state (frame-root-window frame) 'safe) 1010 (window-state-put window-state (frame-root-window frame) 'safe)