[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/term ns-win.el
From: |
YAMAMOTO Mitsuharu |
Subject: |
[Emacs-diffs] emacs/lisp/term ns-win.el |
Date: |
Thu, 16 Jul 2009 08:24:56 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: YAMAMOTO Mitsuharu <mituharu> 09/07/16 08:24:56
Modified files:
lisp/term : ns-win.el
Log message:
(ns-set-alpha): Don't declare.
(ns-set-background-alpha): Remove function.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/term/ns-win.el?cvsroot=emacs&r1=1.45&r2=1.46
Patches:
Index: ns-win.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term/ns-win.el,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -b -r1.45 -r1.46
--- ns-win.el 13 Jul 2009 10:18:07 -0000 1.45
+++ ns-win.el 16 Jul 2009 08:24:56 -0000 1.46
@@ -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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/term ns-win.el,
YAMAMOTO Mitsuharu <=