(try-face-font, find-face, get-face): New aliases.

[bpt/emacs.git] / lisp / sun-fns.el

diff --git a/lisp/sun-fns.el b/lisp/sun-fns.el
index b2ca592..3400095 100644 (file)
--- a/lisp/sun-fns.el
+++ b/lisp/sun-fns.el
@@ -1,11 +1,15 @@
-;; Subroutines of Mouse handling for Sun windows
+;;; sun-fns.el --- subroutines of Mouse handling for Sun windows
+
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
+;; Author: Jeff Peck <peck@sun.com>
+;; Keywords: hardware
+
 ;; 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 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -17,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;;; Submitted Mar. 1987, Jeff Peck
 ;;;                     Sun Microsystems Inc. <peck@sun.com>
 ;;; Conceived Nov. 1986, Stan Jefferson,
@@ -24,8 +30,6 @@
 ;;; GoodIdeas Feb. 1987, Steve Greenbaum
 ;;; & UpClicks           Reasoning Systems, Inc.
 ;;;
-(provide 'sun-fns)
-(require 'sun-mouse)
 ;;;
 ;;; Functions for manipulating via the mouse and mouse-map definitions
 ;;; for accessing them.  Also definitons of mouse menus.
@@ -48,6 +52,11 @@
 ;;; bind the mouse button to an s-exp that contains the necessary parameters.
 ;;; See "minibuffer" bindings for examples.
 ;;;
+
+;;; Code:
+
+(require 'sun-mouse)
+
 (defconst cursor-pause-milliseconds 300
   "*Number of milliseconds to display alternate cursor (usually the mark)")
 
@@ -231,8 +240,7 @@ See mouse-mark-thing for a description of the objects recognized."
   (if (eq last-command 'yank)
       (let ((before (< (point) (mark))))
        (delete-region (point) (mark))
-       (rotate-yank-pointer 1)
-       (insert (car kill-ring-yank-pointer))
+       (insert (current-kill 1))
        (if before (exchange-point-and-mark)))
     (yank))
   (setq this-command 'yank))
@@ -628,3 +636,6 @@ To unmark a buffer marked for deletion, select it with LEFT."
 (global-set-mouse '(minibuffer shift  control meta right)  'mouse-help-region)
 (global-set-mouse '(minibuffer double control meta right)  'mouse-help-region)
 
+(provide 'sun-fns)
+
+;;; sun-fns.el ends here