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

   1 ;;; notes-xemacs.el --- XEmacs compatibility functions
   2
   3 ;;; Copyright (C) 1998,2012  Free Software Foundation, Inc.
   4
   5 ;; Author: <johnh@isi.edu>
   6
   7 ;; This file is part of GNU Emacs.
   8
   9 ;; GNU Emacs is free software: you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation, either version 3 of the License, or
  12 ;; (at your option) any later version.
  13
  14 ;; GNU Emacs is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 ;;; Commentary:
  23
  24 ;;; Code:
  25
  26 (defun notes-platform-bind-mouse (map generic-key fn)
  27   "Map from Emacs symbols to XEmacs for notes-mode (sigh)."
  28   (let
  29       ((xemacs-key
  30         (cond
  31          ((eq generic-key 'mouse-2) [(button2)])
  32          ((eq generic-key 'S-mouse-2) [(shift button2)]))))
  33     (define-key map xemacs-key fn)))
  34
  35 (defun notes-platform-init ()
  36   "Init platform-specific stuff for notes-mode."
  37   (if notes-platform-inited
  38       t
  39     (setq notes-platform-inited t)
  40     (make-face notes-bold-face)
  41     (if (not (face-differs-from-default-p notes-bold-face))
  42             (copy-face 'bold notes-bold-face))
  43
  44     ))
  45
  46 (provide 'notes-xemacs)
  47 ;;; notes-xemacs.el ends here