# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1247732696 0
# Node ID 4f0ab17b429ccebd4f458f5dce758f5bbe8f1937
# Parent  337f90c9ae7dc9ec8acf0afa23d865decc172890
(ns-set-alpha): Don't declare.
(ns-set-background-alpha): Remove function.

diff -r 337f90c9ae7d -r 4f0ab17b429c lisp/term/ns-win.el
--- a/lisp/term/ns-win.el	Thu Jul 16 08:24:33 2009 +0000
+++ b/lisp/term/ns-win.el	Thu Jul 16 08:24:56 2009 +0000
@@ -1130,18 +1130,6 @@
       (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))