[Emacs-diffs] Changes to emacs/lisp/strokes.el

[Pavel Janík]

Index: emacs/lisp/strokes.el
diff -c emacs/lisp/strokes.el:1.8 emacs/lisp/strokes.el:1.9
*** emacs/lisp/strokes.el:1.8   Mon Nov 26 23:30:43 2001
--- emacs/lisp/strokes.el       Mon Feb 11 01:25:20 2002
***************
*** 1,6 ****
  ;;; strokes.el --- control Emacs through mouse strokes
  
! ;; Copyright (C) 1997, 2000 Free Software Foundation, Inc.
  
  ;; Author: David Bakhash <address@hidden>
  ;; Maintainer: David Bakhash <address@hidden>
--- 1,6 ----
  ;;; strokes.el --- control Emacs through mouse strokes
  
! ;; Copyright (C) 1997, 2000, 2002 Free Software Foundation, Inc.
  
  ;; Author: David Bakhash <address@hidden>
  ;; Maintainer: David Bakhash <address@hidden>
***************
*** 99,105 ****
  ;; `strokes-grid-resolution' (determines the grid dimensions that you use
  ;; when defining/reading strokes.  The finer the grid your computer can
  ;; handle, the more you can do, but even a 3x3 grid is pretty cool.)
! ;; The default value (7) should be fine for most decent computers.
  ;; NOTE: This variable should not be set to a number less than 3.
  
  ;; `strokes-display-strokes-buffer' will allow you to hide the strokes
--- 99,105 ----
  ;; `strokes-grid-resolution' (determines the grid dimensions that you use
  ;; when defining/reading strokes.  The finer the grid your computer can
  ;; handle, the more you can do, but even a 3x3 grid is pretty cool.)
! ;; The default value (9) should be fine for most decent computers.
  ;; NOTE: This variable should not be set to a number less than 3.
  
  ;; `strokes-display-strokes-buffer' will allow you to hide the strokes
***************
*** 986,992 ****
  
  ;;;###autoload
  (defun strokes-do-stroke (event)
!   "Read a simple stroke from the user and then exectute its command.
  This must be bound to a mouse event."
    (interactive "e")
    (or strokes-mode (strokes-mode t))
--- 986,992 ----
  
  ;;;###autoload
  (defun strokes-do-stroke (event)
!   "Read a simple stroke from the user and then execute its command.
  This must be bound to a mouse event."
    (interactive "e")
    (or strokes-mode (strokes-mode t))
***************
*** 994,1000 ****
  
  ;;;###autoload
  (defun strokes-do-complex-stroke (event)
!   "Read a complex stroke from the user and then exectute its command.
  This must be bound to a mouse event."
    (interactive "e")
    (or strokes-mode (strokes-mode t))
--- 994,1000 ----
  
  ;;;###autoload
  (defun strokes-do-complex-stroke (event)
!   "Read a complex stroke from the user and then execute its command.
  This must be bound to a mouse event."
    (interactive "e")
    (or strokes-mode (strokes-mode t))
***************
*** 1027,1035 ****
  (defun strokes-help ()
    "Get instructional help on using the `strokes' package."
    (interactive)
!   (with-output-to-temp-buffer "*Help with Strokes*"
!     (let ((helpdoc
!          "This is help for the strokes package.
  
  If you find something wrong with strokes, or feel that it can be
  improved in some way, then please feel free to email me:
--- 1027,1034 ----
  (defun strokes-help ()
    "Get instructional help on using the `strokes' package."
    (interactive)
!   (let ((helpdoc
!        "This is help for the strokes package.
  
  If you find something wrong with strokes, or feel that it can be
  improved in some way, then please feel free to email me:
***************
*** 1051,1057 ****
  right every time.
  
  Strokes also allows you to compose documents graphically.  You can
! fully edit documents in Chinese, Japanese, etc. based on XEmacs
  strokes.  Once you've done so, you can ascii compress-and-encode them
  and then safely save them for later use, send letters to friends
  \(using Emacs, of course).  Strokes will later decode these documents,
--- 1050,1056 ----
  right every time.
  
  Strokes also allows you to compose documents graphically.  You can
! fully edit documents in Chinese, Japanese, etc. based on Emacs
  strokes.  Once you've done so, you can ascii compress-and-encode them
  and then safely save them for later use, send letters to friends
  \(using Emacs, of course).  Strokes will later decode these documents,
***************
*** 1173,1182 ****
    by customizing the group named `strokes' via the customization package:
  
    > M-x customize"))
!     (with-output-to-temp-buffer "*Help"
        (princ helpdoc)
        (set-buffer standard-output)
!       (help-mode))
        (print-help-return-message))))
  
  (defun strokes-report-bug ()
--- 1172,1181 ----
    by customizing the group named `strokes' via the customization package:
  
    > M-x customize"))
!     (with-output-to-temp-buffer "*Help with Strokes*"
        (princ helpdoc)
        (set-buffer standard-output)
!       (help-mode)
        (print-help-return-message))))
  
  (defun strokes-report-bug ()
***************
*** 1286,1292 ****
            (strokes-load-user-strokes)
            (if (and (not (equal current strokes-global-map))
                     (or (interactive-p)
!                        (yes-or-no-p "save your strokes? ")))
                (progn
                  (require 'pp)         ; pretty-print variables
                  (message "Saving strokes in %s..." strokes-file)
--- 1285,1291 ----
            (strokes-load-user-strokes)
            (if (and (not (equal current strokes-global-map))
                     (or (interactive-p)
!                        (yes-or-no-p "Save your strokes? ")))
                (progn
                  (require 'pp)         ; pretty-print variables
                  (message "Saving strokes in %s..." strokes-file)
***************
*** 1530,1536 ****
                                          (buffer-string))
                                        'xpm t)))
          finally do (kill-region (1+ (point)) (point-max)))
!     (view-buffer "*Strokes List*" t)
      (set (make-local-variable 'view-mode-map)
         (let ((map (copy-keymap view-mode-map)))
           (define-key map "q" `(lambda ()
--- 1529,1535 ----
                                          (buffer-string))
                                        'xpm t)))
          finally do (kill-region (1+ (point)) (point-max)))
!     (view-buffer "*Strokes List*" nil)
      (set (make-local-variable 'view-mode-map)
         (let ((map (copy-keymap view-mode-map)))
           (define-key map "q" `(lambda ()