KOBAYASHI Taizo
tkoba****@sea*****
2004年 11月 9日 (火) 16:28:15 JST
初めまして。 MacOS X WorkShop http://www.bach-phys.ritsumei.ac.jp/OSXWS/ の小林です。 皆さんの成果を利用させて戴いております。 先ずは御礼申し上げます。 From: 白土 浩 <sira****@ie*****> Subject: [Macemacsjp-users 175] Re: carbon-font bug fixed Date: Tue, 09 Nov 2004 11:02:22 +0900 > 11/08 版の cvs では修正されているようです． 全角文字を右から左へなぞる時にカーソルが残すゴミも復活していますが 一応安定して使えています。 さて、今月頭に easymenu.el が変更されました。 （参考）http://lists.gnu.org/archive/html/emacs-devel/2004-11/msg00116.html この変更に伴い color-theme.el にも変更を加える必要があります。 一応動く様には出来ましたので以下にパッチを添付します。 ======================================== KOBAYASHI Taizo <tkoba****@ike-d*****> GnuPG Fingerprint = 645E 492B 0EF1 E3C8 392D 730F F367 E151 5C69 CADA -------------- next part -------------- --- color-theme.el.orig Tue Nov 9 14:34:51 2004 +++ color-theme.el Tue Nov 9 14:35:12 2004 @@ -532,6 +532,37 @@ ;;; Functions +;; Taking a snapshot of the current color theme and pretty printing it. + +(defun color-theme-filter (old-list regexp &optional exclude) + "Filter OLD-LIST. +The resulting list will be newly allocated and contains only elements +with names matching REGEXP. OLD-LIST may be a list or an alist. If you +want to filter a plist, use `color-theme-alist' to convert your plist to +an alist, first. + +If the optional argument EXCLUDE is non-nil, then the sense is +reversed: only non-matching elements will be retained." + (let (elem new-list) + (dolist (elem old-list) + (setq name (symbol-name (if (listp elem) (car elem) elem))) + (when (or (and (not exclude) + (string-match regexp name)) + (and exclude + (not (string-match regexp name)))) + ;; Now make sure that if elem is a cons cell, and the cdr of + ;; that cons cell is a string, then we need a *new* string in + ;; the new list. Having a new cons cell is of no use because + ;; modify-frame-parameters will modify this string, thus + ;; modifying our color theme functions! + (when (and (consp elem) + (stringp (cdr elem))) + (setq elem (cons (car elem) + (copy-sequence (cdr elem))))) + ;; Now store elem + (setq new-list (cons elem new-list)))) + new-list)) + (defun color-theme-backup-original-values () "Back up the original `default-frame-alist'. The values are stored in `color-theme-original-frame-alist' on @@ -586,9 +617,8 @@ (color-theme-mode)) (require 'easymenu) -(easy-menu-add-item nil '("tools") "--") -(easy-menu-add-item nil '("tools") - ["Color Themes" color-theme-select t]) +(easy-menu-add-item nil '("Tools") "--") +(easy-menu-add-item nil '("Tools") ["Color Themes" color-theme-select t]) (defun color-theme-mode () "Major mode to select and install color themes. @@ -687,37 +717,6 @@ (color-theme-install-at-point))) - -;; Taking a snapshot of the current color theme and pretty printing it. - -(defun color-theme-filter (old-list regexp &optional exclude) - "Filter OLD-LIST. -The resulting list will be newly allocated and contains only elements -with names matching REGEXP. OLD-LIST may be a list or an alist. If you -want to filter a plist, use `color-theme-alist' to convert your plist to -an alist, first. - -If the optional argument EXCLUDE is non-nil, then the sense is -reversed: only non-matching elements will be retained." - (let (elem new-list) - (dolist (elem old-list) - (setq name (symbol-name (if (listp elem) (car elem) elem))) - (when (or (and (not exclude) - (string-match regexp name)) - (and exclude - (not (string-match regexp name)))) - ;; Now make sure that if elem is a cons cell, and the cdr of - ;; that cons cell is a string, then we need a *new* string in - ;; the new list. Having a new cons cell is of no use because - ;; modify-frame-parameters will modify this string, thus - ;; modifying our color theme functions! - (when (and (consp elem) - (stringp (cdr elem))) - (setq elem (cons (car elem) - (copy-sequence (cdr elem))))) - ;; Now store elem - (setq new-list (cons elem new-list)))) - new-list)) (defun color-theme-spec-filter (spec) "Filter the attributes in SPEC.
