+;;; notes-emacs.el --- Emacs compatibility functions
-;;;
-;;; notes-emacs.el
-;;; $Id: notes-emacs.el,v 1.3 2007/11/06 02:41:21 johnh Exp $
-;;;
-;;; Copyright (C) 1998 by John Heidemann
-;;; Comments to <johnh@isi.edu>.
-;;;
-;;; This file is under the Gnu Public License.
-;;;
+;; Copyright (C) 1998,2012 Free Software Foundation, Inc.
-;;
-;; (FSF) emacs-specific parts of notes-mode.
-;;
+;; Author: <johnh@isi.edu>
-(defun notes-platform-bind-mouse (map generic-key fn)
- "Map emacs symbols (a no-op)."
- (define-key map (vconcat (list generic-key)) fn))
-
-
-(defun notes-platform-font-lock (new-font-lock-keywords)
- "Notes platform-specific font-lock mode."
- (require 'font-lock)
- (if (>= emacs-major-version 20)
- (progn
- ;; emacs-20
- (make-local-variable 'font-lock-defaults)
- (setq font-lock-defaults
- (list
- new-font-lock-keywords
- t
- nil
- nil
- 'beginning-of-line)))
- ;; emacs-19
- (make-local-variable 'font-lock-no-comments)
- (setq font-lock-no-comments t)
- (make-local-variable 'font-lock-keywords)
- (setq font-lock-keywords new-font-lock-keywords)
- (font-lock-mode 1)))
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;; Code:
+
+(defun notes-platform-bind-mouse (map generic-key fn)
+ "Map Emacs symbols (a no-op)."
+ (define-key map (vector generic-key) fn))
(defun notes-platform-init ()
"Init platform-specific stuff for notes-mode."
(copy-face 'bold notes-bold-face))))
(provide 'notes-emacs)
-
-
-
+;;; notes-emacs.el ends here