From 7653ca1dfb92b95764536957c7341e79c4efa898 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Thu, 16 Jul 2009 08:25:21 +0000 Subject: [PATCH] (ns-set-alpha): Don't declare. (ns-set-background-alpha): Remove function. --- lisp/ChangeLog | 5 +++++ lisp/term/ns-win.el | 12 ------------ 2 files changed, 5 insertions(+), 12 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2098dfa7f50..785daed8197 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-07-16 YAMAMOTO Mitsuharu + + * term/ns-win.el (ns-set-alpha): Don't declare. + (ns-set-background-alpha): Remove function. + 2009-07-16 Kevin Ryde * emacs-lisp/copyright.el (copyright-update): Save match-data across diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index 20056dab699..5830f438cce 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -1130,18 +1130,6 @@ The value may be different for frames on different Nextstep displays." (setq defined-colors (cons this-color defined-colors))) ;;) defined-colors)) -(declare-function ns-set-alpha "nsfns.m" (color alpha)) - -;; Convenience and work-around for fact that set color fns now require named. -(defun ns-set-background-alpha (alpha) - "Sets ALPHA (opacity) of background. -Set from 0.0 (fully transparent) to 1.0 (fully opaque; default). -Note, tranparency works better on Tiger (10.4) and higher." - (interactive "nSet background alpha to: ") - (let ((bgcolor (cdr (assq 'background-color (frame-parameters))))) - (set-frame-parameter (selected-frame) - 'background-color (ns-set-alpha bgcolor alpha)))) - ;; Functions for color panel + drag (defun ns-face-at-pos (pos) (let* ((frame (car pos)) -- 2.39.2