Emacs23はUbuntuで透明にできません（Gnome 3）

Question

私のemacsウィンドウを透明にする方法を検索します。しかし、それは動作しません。このような 何かに失敗しました：

(global-set-key [(f8)] 'loop-alpha) 

(setq alpha-list '((100 100) (95 65) (85 55) (75 45) (65 35))) 

(defun loop-alpha() 
(interactive) 
(let ((h (car alpha-list)))    
((lambda (a ab) 
    (set-frame-parameter (selected-frame) 'alpha (list a ab)) 
    (add-to-list 'default-frame-alist (cons 'alpha (list a ab))) 
    ) (car h) (car (cdr h))) 
(setq alpha-list (cdr (append alpha-list (list h)))) 
) 
) 

Answer 1

は、ここで私はあなたがしようとしていた何を考えての作業の実装です：あなたはそれがalpha-listを再定義する書き込みいずれかのバージョンがで非常に奇妙な動作しようとしていること

(global-set-key [(f8)] 'loop-alpha) 

(defvar alpha-list '((100 100) (95 65) (85 55) (75 45) (65 35))) 

(defun next-alpha() 
    (let ((current-alpha 
     (or (frame-parameter (selected-frame) 'alpha) 
      (first alpha-list))) 
     (lst alpha-list)) 
    (or (second 
     (catch 'alpha 
      (while lst 
      (when (equal (first lst) current-alpha) 
       (throw 'alpha lst)) 
      (setf lst (cdr lst))))) 
     (first alpha-list)))) 

(defun loop-alpha() 
    (interactive) 
    (let ((new-alpha (next-alpha)) 
     (current-default (assoc 'alpha default-frame-alist))) 
    (set-frame-parameter (selected-frame) 'alpha new-alpha) 
    (if current-default 
     (setcdr current-default new-alpha) 
     (add-to-list 'default-frame-alist (cons 'alpha new-alpha))))) 

お知らせ複数のフレーム。私はあなたのコードに何が間違っていたのかを説明しますが、正直なところ、それが何をすべきかを考え出すことはできませんでした。最初に(require 'cl)にしておけば、これはやや簡単に書くことができますが、このコードはうまくいくと思います。