# HG changeset patch # User HIROSE Yuuji # Date 1421388300 -32400 # Node ID 8c8757ac9b62b92e8aeb74c27098ee734f76bcf9 # Parent d9c23841313b3af48ebd05156df11fab9100cf08 Give 'frame-background-mode a precedence to 'frame-paramerters diff -r d9c23841313b -r 8c8757ac9b62 yatex19.el --- a/yatex19.el Fri Jan 16 14:59:29 2015 +0900 +++ b/yatex19.el Fri Jan 16 15:05:00 2015 +0900 @@ -1,6 +1,6 @@ ;;; yatex19.el -- YaTeX facilities for Emacs 19 or later -*- coding: sjis -*- ;;; (c)1994-2015 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Fri Jan 16 10:29:41 2015 on firestorm +;;; Last modified Fri Jan 16 15:03:58 2015 on firestorm ;;; $Id$ ;;; Code: @@ -15,10 +15,10 @@ (defvar YaTeX-background-mode (or (if (fboundp 'get-frame-background-mode) (get-frame-background-mode (selected-frame))) + (if (boundp 'frame-background-mode) + frame-background-mode) (if (fboundp 'frame-parameters) (cdr (assq 'background-mode (frame-parameters)))) - (if (boundp 'frame-background-mode) - frame-background-mode) (if (boundp 'hilit-background-mode) hilit-background-mode) (if (face-background 'default)