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

[Juanma Barranquero]

Index: emacs/lisp/strokes.el
diff -c emacs/lisp/strokes.el:1.20 emacs/lisp/strokes.el:1.21
*** emacs/lisp/strokes.el:1.20  Fri Jun 10 10:43:03 2005
--- emacs/lisp/strokes.el       Mon Jul  4 02:33:29 2005
***************
*** 208,214 ****
  ;;; user variables...
  
  (defgroup strokes nil
!   "Control Emacs through mouse strokes"
    :link '(emacs-commentary-link "strokes")
    :link '(url-link "http://www.mit.edu/people/cadet/strokes-help.html";)
    :group 'mouse)
--- 208,214 ----
  ;;; user variables...
  
  (defgroup strokes nil
!   "Control Emacs through mouse strokes."
    :link '(emacs-commentary-link "strokes")
    :link '(url-link "http://www.mit.edu/people/cadet/strokes-help.html";)
    :group 'mouse)
***************
*** 753,759 ****
                              (progn
                                (goto-char point)
                                (subst-char-in-region point (1+ point)
!                                                     ?\  strokes-character))
                            ;; otherwise, we can start drawing the next time...
                            (setq safe-to-draw-p t))
                          (push (cdr (mouse-pixel-position))
--- 753,759 ----
                              (progn
                                (goto-char point)
                                (subst-char-in-region point (1+ point)
!                                                     ?\s strokes-character))
                            ;; otherwise, we can start drawing the next time...
                            (setq safe-to-draw-p t))
                          (push (cdr (mouse-pixel-position))
***************
*** 763,769 ****
            ;; clean up strokes buffer and then bury it.
            (when (equal (buffer-name) strokes-buffer-name)
              (subst-char-in-region (point-min) (point-max)
!                                   strokes-character ?\ )
              (goto-char (point-min))
              (bury-buffer))))
        ;; Otherwise, don't use strokes buffer and read stroke silently
--- 763,769 ----
            ;; clean up strokes buffer and then bury it.
            (when (equal (buffer-name) strokes-buffer-name)
              (subst-char-in-region (point-min) (point-max)
!                                   strokes-character ?\s)
              (goto-char (point-min))
              (bury-buffer))))
        ;; Otherwise, don't use strokes buffer and read stroke silently
***************
*** 813,819 ****
                        (when point
                          (goto-char point)
                          (subst-char-in-region point (1+ point)
!                                               ?\  strokes-character))
                        (push (cdr (mouse-pixel-position))
                              pix-locs)))
                  (setq event (read-event)))
--- 813,819 ----
                        (when point
                          (goto-char point)
                          (subst-char-in-region point (1+ point)
!                                               ?\s strokes-character))
                        (push (cdr (mouse-pixel-position))
                              pix-locs)))
                  (setq event (read-event)))
***************
*** 831,837 ****
          ;; protected
          (when (equal (buffer-name) strokes-buffer-name)
            (subst-char-in-region (point-min) (point-max)
!                                 strokes-character ?\ )
            (goto-char (point-min))
            (bury-buffer)))))))
  
--- 831,837 ----
          ;; protected
          (when (equal (buffer-name) strokes-buffer-name)
            (subst-char-in-region (point-min) (point-max)
!                                 strokes-character ?\s)
            (goto-char (point-min))
            (bury-buffer)))))))
  
***************
*** 1035,1041 ****
    "Erase the contents of the current buffer and fill it with whitespace."
    (erase-buffer)
    (loop repeat (frame-height) do
!       (insert-char ?\  (1- (frame-width)))
        (newline))
    (goto-char (point-min)))
  
--- 1035,1041 ----
    "Erase the contents of the current buffer and fill it with whitespace."
    (erase-buffer)
    (loop repeat (frame-height) do
!       (insert-char ?\s (1- (frame-width)))
        (newline))
    (goto-char (point-min)))
  
***************
*** 1169,1175 ****
        (insert strokes-xpm-header)
        (loop repeat 33 do
            (insert ?\")
!           (insert-char ?\  33)
            (insert "\",")
            (newline)
            finally
--- 1169,1175 ----
        (insert strokes-xpm-header)
        (loop repeat 33 do
            (insert ?\")
!           (insert-char ?\s 33)
            (insert "\",")
            (newline)
            finally
***************
*** 1195,1201 ****
                     ;; Otherwise, just plot the point...
                     (goto-line (+ 17 y))
                     (forward-char (+ 2 x))
!                    (subst-char-in-region (point) (1+ (point)) ?\  ?\*)))
                  ((strokes-lift-p point)
                   ;; a lift--tell the loop to X out the next point...
                   (setq lift-flag t))))
--- 1195,1201 ----
                     ;; Otherwise, just plot the point...
                     (goto-line (+ 17 y))
                     (forward-char (+ 2 x))
!                    (subst-char-in-region (point) (1+ (point)) ?\s ?\*)))
                  ((strokes-lift-p point)
                   ;; a lift--tell the loop to X out the next point...
                   (setq lift-flag t))))
***************
*** 1286,1292 ****
  ;;          (command-name (symbol-name (cdr def))))
  ;;      (strokes-xpm-for-stroke stroke " *strokes-xpm*")
  ;;      (newline 2)
! ;;      (insert-char ?\  45)
  ;;      (beginning-of-line)
  ;;      (insert command-name)
  ;;      (beginning-of-line)
--- 1286,1292 ----
  ;;          (command-name (symbol-name (cdr def))))
  ;;      (strokes-xpm-for-stroke stroke " *strokes-xpm*")
  ;;      (newline 2)
! ;;      (insert-char ?\s 45)
  ;;      (beginning-of-line)
  ;;      (insert command-name)
  ;;      (beginning-of-line)
***************
*** 1342,1348 ****
                                (prin1-to-string (cdr def)))))
            (strokes-xpm-for-stroke stroke " *strokes-xpm*")
            (newline 2)
!           (insert-char ?\  45)
            (beginning-of-line)
            (insert command-name)
            (beginning-of-line)
--- 1342,1348 ----
                                (prin1-to-string (cdr def)))))
            (strokes-xpm-for-stroke stroke " *strokes-xpm*")
            (newline 2)
!           (insert-char ?\s 45)
            (beginning-of-line)
            (insert command-name)
            (beginning-of-line)
***************
*** 1515,1521 ****
  
  (defsubst strokes-xpm-char-bit-p (char)
    "Non-nil if CHAR represents an `on' or `off' bit in the XPM."
!   (or (eq char ?\ )
        (eq char ?*)))
  
  ;;(defsubst strokes-xor (a b)  ### Should I make this an inline function? ###
--- 1515,1521 ----
  
  (defsubst strokes-xpm-char-bit-p (char)
    "Non-nil if CHAR represents an `on' or `off' bit in the XPM."
!   (or (eq char ?\s)
        (eq char ?*)))
  
  ;;(defsubst strokes-xor (a b)  ### Should I make this an inline function? ###
***************
*** 1716,1722 ****
        (insert-char
         (if current-char-is-on-p
             ?*
!          ?\ )
         (strokes-xpm-decode-char (char-after)))
        (delete-char 1)
        (setq current-char-is-on-p (not current-char-is-on-p)))
--- 1716,1722 ----
        (insert-char
         (if current-char-is-on-p
             ?*
!          ?\s)
         (strokes-xpm-decode-char (char-after)))
        (delete-char 1)
        (setq current-char-is-on-p (not current-char-is-on-p)))