From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Thu, 16 Jul 2009 08:27:59 +0000 (+0000)
Subject: (ns-set-alpha): Don't declare.
X-Git-Tag: emacs-23.1~57
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7977d1e37879e1b596aa7b941c4a03c2208025ec;p=emacs.git

(ns-set-alpha): Don't declare.
(ns-set-background-alpha): Remove function.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 31d52663f18..ef65d12f4ff 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-07-16  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
+
+	* term/ns-win.el (ns-set-alpha): Don't declare.
+	(ns-set-background-alpha): Remove function.
+
 2009-07-15  Kenichi Handa  <handa@m17n.org>
 
 	* language/misc-lang.el ("IPA"): Change coding systems to utf-8.
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 3c963c3ca54..41c47d73ff3 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))