[xyzzy:07389] Re: " テキストの一部を色付きに " について

[sinj@xxxxxxxxxxxxxx (YAMAMOTO Shinji)]

亀井さん、こんにちは。山本です。

> 見にくいですか?

共通設定で、選択文字色・選択背景色が変更できることを
今ごろ気付きました。
選択文字色をウィンドウ文字色と同じ、選択背景色を
ウィンドウ背景色よりも少しだけ暗くするとほぼ理想の状態に
出来ました。どうも有難う御座いました。

;;;----------------------------------------------------------------------
(setf (symbol-function 'org-set-mark) (symbol-function 'set-mark))
(defun set-mark (&optional n)
  (interactive "p")
  (let ((point (point))
	(type (get-selection-type)))
    (cond
     ((and type (eq point (mark)))  ;; markされてないとエラーに！！
      (stop-selection))
     (t
      (setq type 2)
      (org-set-mark n)
      (goto-char point)
      (start-selection type)
      (goto-char point)))))

-- 
山本真二
sinj@xxxxxxxxxxxxxx