From: Yuuki Harano <masm+github@masm11.me>
Date: Mon, 16 Aug 2021 12:48:56 +0000 (+0900)
Subject: * lisp/term/pgtk-win.el (pgtk-face-at-pos): Remove unused function
X-Git-Tag: emacs-29.0.90~3674
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a925e6b2b571dec8e17fba73dba69503674cc49e;p=emacs.git

* lisp/term/pgtk-win.el (pgtk-face-at-pos): Remove unused function
---

diff --git a/lisp/term/pgtk-win.el b/lisp/term/pgtk-win.el
index 57e8d14dcff..f4247b030b2 100644
--- a/lisp/term/pgtk-win.el
+++ b/lisp/term/pgtk-win.el
@@ -226,43 +226,6 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
   (insert (gui-get-selection 'SECONDARY)))
 
 
-;;;; Color support.
-
-;; Functions for color panel + drag
-(defun pgtk-face-at-pos (pos)
-  (let* ((frame (car pos))
-         (frame-pos (cons (cadr pos) (cddr pos)))
-         (window (window-at (car frame-pos) (cdr frame-pos) frame))
-         (window-pos (coordinates-in-window-p frame-pos window))
-         (buffer (window-buffer window))
-         (edges (window-edges window)))
-    (cond
-     ((not window-pos)
-      nil)
-     ((eq window-pos 'mode-line)
-      'mode-line)
-     ((eq window-pos 'vertical-line)
-      'default)
-     ((consp window-pos)
-      (with-current-buffer buffer
-        (let ((p (car (compute-motion (window-start window)
-                                      (cons (nth 0 edges) (nth 1 edges))
-                                      (window-end window)
-                                      frame-pos
-                                      (- (window-width window) 1)
-                                      nil
-                                      window))))
-          (cond
-           ((eq p (window-point window))
-            'cursor)
-           ((and mark-active (< (region-beginning) p) (< p (region-end)))
-            'region)
-           (t
-	    (let ((faces (get-char-property p 'face window)))
-	      (if (consp faces) (car faces) faces)))))))
-     (t
-      nil))))
-
 (defun pgtk-suspend-error ()
   ;; Don't allow suspending if any of the frames are PGTK frames.
   (if (memq 'pgtk (mapcar 'window-system (frame-list)))