From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.devel Subject: Re: face-remapping-alist can not override internal-border face? Date: Sun, 10 Mar 2019 09:45:44 +0100 Message-ID: <5C84CEB8.6070501@gmx.at> References: <3a1726b0.64ab.1695b90bb85.Coremail.tumashu@163.com> <83wol9ai1f.fsf@gnu.org> <6b96411a.e495.1695e1a9d58.Coremail.tumashu@163.com> <5C82B9FC.3090505@gmx.at> <376d7fef.5d24.16962dafb01.Coremail.tumashu@163.com> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 7bit Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="60671"; mail-complaints-to="usenet@blaine.gmane.org" Cc: Eli Zaretskii , "emacs-devel@gnu.org" To: tumashu Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Mar 10 10:22:01 2019 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:256) (Exim 4.89) (envelope-from ) id 1h2uef-000Fep-1v for ged-emacs-devel@m.gmane.org; Sun, 10 Mar 2019 10:22:01 +0100 Original-Received: from localhost ([127.0.0.1]:42596 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1h2ued-0005ld-St for ged-emacs-devel@m.gmane.org; Sun, 10 Mar 2019 05:21:59 -0400 Original-Received: from eggs.gnu.org ([209.51.188.92]:47274) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1h2u5n-00006W-09 for emacs-devel@gnu.org; Sun, 10 Mar 2019 04:45:59 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1h2u5m-000726-7G for emacs-devel@gnu.org; Sun, 10 Mar 2019 04:45:58 -0400 Original-Received: from mout.gmx.net ([212.227.15.18]:59337) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1h2u5l-0006yF-SW; Sun, 10 Mar 2019 04:45:58 -0400 Original-Received: from [192.168.1.101] ([212.95.5.172]) by mail.gmx.com (mrgmx002 [212.227.17.190]) with ESMTPSA (Nemesis) id 0MKpvc-1h2u5a2g9w-00088p; Sun, 10 Mar 2019 09:45:46 +0100 In-Reply-To: <376d7fef.5d24.16962dafb01.Coremail.tumashu@163.com> X-Provags-ID: V03:K1:9zkRZe6PdYAevrIruuKMVwfpzPZxTEZ6A7VcwriKZJB+x1nkn19 d5by8OejniDoeayhmQehMv05G8p5r+rK8kO9fHMvGimiWyaT/Ng8RR/F2TLMUVMzZu6RSOm GMftC+2gLp8Qaw9xzZHDWfAplccg9QyZuUT7OZ472x3esTRzVj7OdBg4NlmLSS8fbInHOzj 1XGjNYc9fUuL0oyGTWc0A== X-UI-Out-Filterresults: notjunk:1;V03:K0:RfXUlzmttv4=:NnywcIQoehpp+9R4u5pSOS QvCYjt6mpiW/9raP5QDpfHvLCrMh740NTsHlOMVG2Hv9hTrhGzBbYvUV6449ek+/7oXPhEtf0 MUC92vAPIAHGH4hXtzRzsaRydfdnY7FCccgYj7I+/qssoOUnaGD6DzFIToq9J5q+Xngyppmmf VgtHpo8fqFh39Ejv0eVYFeSy6smNq8p4ocVgzMYt7kN+mPV/OyiWqiLJEHS7kySA9fKPfgTJG kMLgQaywnKmGd4RGA9sFOhBZ+oD7pMV9J964Ba/nxuNfZT4vEJeMgTNfxnCmQwoNdKgSwJzIF wTACZYp2MGjPPY1iS7gRaPyClWPsJMNaORIzQm7zUGC4xrb8gRakxmqT0QU11/vbJZHw1YeRW 3PAP7pTHvSfzKsoGSwSQO0a+FBM3ea0kVNaBX4s9n+PjLzg3VVQl/oCRaD1m0r4pPhpRUMkMm aj6ceuhDI68rjFXWeUPq5ptEnOHDGFOTPIDhl3r6PEf8TUDCre9D/xfftbJC2+4uljRwe4jXZ MqRrRPW27hx8/WVTT/uFWrVtqvSTtlKwo2uK6X6iZPE7KiiB9QWudFiDZfF+8dFhv36fQ3Ggw fsmnt7GUBbK1NBg4+nXxKdvKN9dkVaYixZ4D+uwQhBWqqQzEfI4SgZYqlxqpmKNFgZkQRM/Z0 1yw50kUllFq7pWpX6m5tnXF3gABIdw5LHMXxapSEep5+fWOox1QWUK3dIIRo2gK8ksw67tpPd 9OaGCloZ0shk9Ni3n895ecm60tqiBAAL7PMG65C39ngtqvs9uwuLiA3hDGyWqSZthGTZ3Py3 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 212.227.15.18 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:234008 Archived-At: > I think set-face-background will change internal-border globally, > Do we have any method which can let differnet frame have different border color? One stretch of code I use every day is (unedited, so to not miss a maybe important detail) (defvar my-child-frame nil) (defun my-make-child-frame () (interactive) (setq my-child-frame (make-frame `((parent-frame . ,(selected-frame)) (no-focus-on-map . t) (undecorated . t) (left . 1.0) (top . 0.5) (width . 0.3) (height . 0.8) (border-width . 0) (internal-border-width . 3) (background-color . "yellow") (tool-bar-lines . 0) (menu-bar-lines . 0) (minibuffer . nil) (vertical-scroll-bars . nil) (horizontal-scroll-bars . nil) (left-fringe . 0) (right-fringe . 0) (drag-internal-border . t) (drag-with-mode-line . t) (drag-with-header-line . t) (min-height . 1) (min-width . 1) (keep-ratio . t) (snap-width . 25) (top-visible . 4) ;; (bottom-visible . 8) (no-special-glyphs . t) (unsplittable . t) ))) (setq my-child-window (frame-root-window my-child-frame)) (set-window-buffer my-child-window (get-buffer-create "*my-notes*")) (set-window-parameter my-child-window 'mode-line-format 'none) (set-window-parameter my-child-window 'header-line-format '(" " (:eval (buffer-name)))) ;; (set-window-parameter ;; my-child-window 'mode-line-format '(" " (:eval (buffer-name)))) (set-face-background 'internal-border "blue" my-child-frame)) The last form of the last definition does set the background for my-child-frame's internal border, leaving the backgrounds of the internal borders of all other frames alone. martin