4 ;;; $Id: notes-emacs.el,v 1.3 2007/11/06 02:41:21 johnh Exp $
6 ;;; Copyright (C) 1998 by John Heidemann
7 ;;; Comments to <johnh@isi.edu>.
9 ;;; This file is under the Gnu Public License.
13 ;; (FSF) emacs-specific parts of notes-mode.
16 (defun notes-platform-bind-mouse (map generic-key fn)
17 "Map emacs symbols (a no-op)."
18 (define-key map (vconcat (list generic-key)) fn))
21 (defun notes-platform-font-lock (new-font-lock-keywords)
22 "Notes platform-specific font-lock mode."
24 (if (>= emacs-major-version 20)
27 (make-local-variable 'font-lock-defaults)
28 (setq font-lock-defaults
30 new-font-lock-keywords
36 (make-local-variable 'font-lock-no-comments)
37 (setq font-lock-no-comments t)
38 (make-local-variable 'font-lock-keywords)
39 (setq font-lock-keywords new-font-lock-keywords)
43 (defun notes-platform-init ()
44 "Init platform-specific stuff for notes-mode."
45 (if notes-platform-inited
47 (setq notes-platform-inited t)
48 (if (eq notes-bold-face 'notes-bold-face)
49 (copy-face 'bold notes-bold-face))))
51 (provide 'notes-emacs)