code.delx.au - gnu-emacs-elpa/blob - packages/notes-mode/notes-xemacs.el

   1
   2 ;;;
   3 ;;; notes-xemacs.el
   4 ;;; $Id: notes-xemacs.el,v 1.2 1998/11/04 18:40:27 johnh Exp $
   5 ;;;
   6 ;;; Copyright (C) 1998 by John Heidemann
   7 ;;; Comments to <johnh@isi.edu>.
   8 ;;;
   9 ;;; This file is under the Gnu Public License.
  10 ;;;
  11
  12 ;;
  13 ;; Xemacs-specific parts of notes-mode.
  14 ;;
  15
  16 (defun notes-platform-bind-mouse (map generic-key fn)
  17   "Map from (FSF) emacs symbols to xemacs for notes-mode.  (Sigh.)"
  18   (let
  19       ((xemacs-key
  20         (cond
  21          ((eq generic-key 'mouse-2) [(button2)])
  22          ((eq generic-key 'S-mouse-2) [(shift button2)]))))
  23     (define-key map xemacs-key fn)))
  24
  25
  26 (defun notes-platform-font-lock ()
  27   "Notes platform-specific font-lock mode."
  28   (require 'font-lock)
  29   (make-local-variable 'font-lock-defaults)
  30   (setq font-lock-defaults '(notes-font-lock-keywords nil)))
  31
  32
  33 (defun notes-platform-init ()
  34   "Init platform-specific stuff for notes-mode."
  35   (if notes-platform-inited
  36       t
  37     (setq notes-platform-inited t)
  38     (make-face notes-bold-face)
  39     (if (not (face-differs-from-default-p notes-bold-face))
  40             (copy-face 'bold notes-bold-face))
  41
  42     ))
  43
  44 (provide 'notes-xemacs)