Fix: tool-bar-mode mess up popup position
This commit is contained in:
		
							parent
							
								
									108403d5f3
								
							
						
					
					
						commit
						291e5ac97c
					
				
							
								
								
									
										13
									
								
								eldoc-box.el
									
									
									
									
									
								
							
							
						
						
									
										13
									
								
								eldoc-box.el
									
									
									
									
									
								
							| @ -204,17 +204,22 @@ Position is calculated base on WIDTH and HEIGHT of chilframe text window" | ||||
|          (x (- (car point-pos) (car frame-pos))) ; relative to native frame | ||||
|          (y (- (cdr point-pos) (nth 1 frame-pos))) | ||||
|          (en (frame-char-width)) | ||||
|          (em (frame-char-height))) | ||||
|          (em (frame-char-height)) | ||||
|          (frame-geometry (frame-geometry)) | ||||
|          (tool-bar (if (and tool-bar-mode | ||||
|                             (alist-get 'tool-bar-external frame-geometry)) | ||||
|                        (cdr (alist-get 'tool-bar-size frame-geometry)) | ||||
|                      0))) | ||||
|     (cons (if (< (- (frame-inner-width) width) x) | ||||
|               ;; space on the right of the pos is not enough | ||||
|               ;; put to left | ||||
|               (- x width) | ||||
|               (max 0 (- x width)) | ||||
|             (+ x en)) | ||||
|           (if (< (- (frame-inner-height) height) y) | ||||
|               ;; space under the pos is not enough | ||||
|               ;; put above | ||||
|               (- y height) | ||||
|             (+ y em))))) | ||||
|               (max 0 (- y height)) | ||||
|             (+ y em tool-bar))))) | ||||
| 
 | ||||
| (defun eldoc-box--get-frame (buffer) | ||||
|   "Return a childframe displaying BUFFER. | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user
	 Yuan Fu
						Yuan Fu