First cut at cleaning up notes-mode.

[gnu-emacs-elpa] / packages / notes-mode / notes-emacs.el

diff --git a/packages/notes-mode/notes-emacs.el b/packages/notes-mode/notes-emacs.el
index 5c1214bdb309e09258c356061e7546bfbe2e2ec4..6fd4874f06335e349b84a216b3082c91be9c7a86 100644 (file)
--- a/packages/notes-mode/notes-emacs.el
+++ b/packages/notes-mode/notes-emacs.el
@@ -1,44 +1,31 @@
+;;; 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."
@@ -49,6 +36,4 @@
        (copy-face 'bold notes-bold-face))))
 
 (provide 'notes-emacs)
-
-
-
+;;; notes-emacs.el ends here