# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 982923627 0
# Node ID 34ffe86aeeae6ab502c9cd65e4c2e7bc6ce2cd6b
# Parent  d79558eaaecb615bf73e7617a1a08f905b60e5de
(frame-notice-user-settings): Only adjust frame height
for no tool-bar case if tool-bar was originally switched on.

diff -r d79558eaaecb -r 34ffe86aeeae lisp/frame.el
--- a/lisp/frame.el	Fri Feb 23 10:19:58 2001 +0000
+++ b/lisp/frame.el	Fri Feb 23 10:20:27 2001 +0000
@@ -292,11 +292,12 @@
       (when (display-graphic-p)
 	(let ((tool-bar-lines (or (assq 'tool-bar-lines initial-frame-alist)
 				  (assq 'tool-bar-lines default-frame-alist))))
-	  (when (or (null tool-bar-lines)
-		    (null (cdr tool-bar-lines))
-		    (eq 0 (cdr tool-bar-lines)))
+	  (when (and tool-bar-originally-present
+                     (or (null tool-bar-lines)
+                         (null (cdr tool-bar-lines))
+                         (eq 0 (cdr tool-bar-lines))))
 	    (let* ((char-height (frame-char-height frame-initial-frame))
-		   (image-height 24)
+		   (image-height tool-bar-images-pixel-height)
 		   (margin (cond ((and (consp tool-bar-button-margin)
 				       (integerp (cdr tool-bar-button-margin))
 				       (> tool-bar-button-margin 0))