Skip to content

Instantly share code, notes, and snippets.

View fukusaka's full-sized avatar

Shoichi Fukusaka fukusaka

View GitHub Profile
--- linux-source-2.6.26/drivers/net/via-velocity.h.1.14 2009-09-26 21:03:43.000000000 +0900
+++ linux-source-2.6.26/drivers/net/via-velocity.h 2009-10-05 23:52:13.000000000 +0900
@@ -303,6 +303,8 @@
#define MAC_REG_RDCSR_CLR 0x36
#define MAC_REG_RDBASE_LO 0x38
#define MAC_REG_RDINDX 0x3C
+#define MAC_REG_TQETMR 0x3E
+#define MAC_REG_RQETMR 0x3F
#define MAC_REG_TDBASE_LO 0x40
#define MAC_REG_RDCSIZE 0x50
# check kernel version
KVERS := $(shell uname -r)
KVER := $(shell uname -r | cut -c1-3)
ifneq ($(KVER), 2.6)
$(error via-velocity driver for kernel 2.6 only)
endif
KSP := \
/lib/modules/$(KVERS)/build \
/usr/src/linux-$(KVERS) \
;;
;; Windows系でCygwin対応コード
;;
(when (memq system-type '(cygwin windows-nt))
;; cygwin のパスを確認する
(defvar cygwin-top-directory "C:/cygwin/")
;; cygwin のパスを追加
;; 日本語入力を賢くしたい
;; GNU/Linux で egg-anthy を使う設定
(if (eq system-type 'gnu/linux)
(set-language-info "Japanese" 'input-method "japanese-anthy"))
;; Cocoa inline_path 対応
(if (featurep 'ns)
(set-language-info "Japanese" 'input-method "MacOSX"))
;;
;; 日本語環境で UTF-8 をメインにする設定
;;
;; 日本語環境
(set-language-environment 'Japanese)
(cond
;; Windows系で対応
((memq system-type '(cygwin windows-nt))
;;
;; VCS (PCL-CVS/PSVN/etc) の設定
;;
;; VCは自動的にリンクを辿って、かわりに本当のファイルを訪問
(setq vc-follow-symlinks t)
;; VC-DIR を PCL-CVS -status に近づける
(when (>= emacs-major-version 23)
;; CocoaEmacs 対応
(when (eq window-system 'ns)
(require 'ns-win)
;; JISキーボード円記号/バックスラッシュ対応
(mac-translate-from-yen-to-backslash)
;; Option/Command キー を Super/Meta に割当
(setq ns-command-modifier 'meta)
(setq ns-alternate-modifier 'super)
;;; my-sample-ascii.el --
;; $Id: my-sample-ascii.el 516 2010-05-07 02:19:20Z shoichi $
;; Copyright (C) 1999 Shoichi Fukusaka
;; Author: Shoichi Fukusaka <fukusaka@xa2.so-net.ne.jp>
;; Created: 22 Nov 1999
;; Version: 1.02
;; Keywords: face sample
;;
;; フォントの設定
;;
;; VMware 上の X Server であるか?
(defvar my-x-on-vmware nil)
(if (string-match "^HOSTNAME-ON-VMWARE" (system-name))
(setq my-x-on-vmware t))
diff --git a/src/nsterm.m b/src/nsterm.m
index 635f737..4aade4a 100644
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -3920,6 +3920,8 @@ ns_term_shutdown (int sig)
if (mac_store_change_input_method_event())
{
+ if (!emacs_event)
+ return;