Lines Matching +defs:save +defs:point
119 ;; Whenever you load in the strokes package, you will be able to save
122 ;; > M-x strokes-prompt-user-save-strokes
124 ;; and it will save your strokes in ~/.strokes, or you may wish to change
379 (defun strokes-event-closest-point-1 (window &optional line)
386 (save-excursion
391 (point))))
393 (defun strokes-event-closest-point (event &optional start-window)
399 (if (eq (posn-point (event-end event)) 'vertical-line)
400 (strokes-event-closest-point-1 start-window
402 (if (eq (posn-point (event-end event)) 'mode-line)
403 (strokes-event-closest-point-1 start-window)
404 (posn-point (event-end event))))
415 (strokes-event-closest-point-1 start-window)
590 (current-is-a-point-p (consp current))
592 (next-is-a-point-p (consp next))
593 (both-are-points-p (and current-is-a-point-p
594 next-is-a-point-p))
595 (x1 (and current-is-a-point-p
597 (y1 (and current-is-a-point-p
599 (x2 (and next-is-a-point-p
601 (y2 (and next-is-a-point-p
732 (save-excursion
739 (save-window-excursion
752 (let ((point (strokes-event-closest-point event)))
753 (if (and point safe-to-draw-p)
754 ;; we can draw that point
756 (goto-char point)
757 (subst-char-in-region point (1+ point)
767 (subst-char-in-region (point-min) (point-max)
769 (goto-char (point-min))
796 (save-excursion
797 (save-window-excursion
814 (let ((point (strokes-event-closest-point event)))
815 (when point
816 (goto-char point)
817 (subst-char-in-region point (1+ point)
835 (subst-char-in-region (point-min) (point-max)
837 (goto-char (point-min))
917 and then safely save them for later use, send letters to friends
989 You will be prompted to save them when you exit Emacs, or you can save
992 > M-x strokes-prompt-user-save-strokes
1008 may want to send the file, or save it. This is done with
1043 (goto-char (point-min)))
1064 (save-excursion
1065 (save-window-excursion
1070 (auto-save-mode 0)
1082 (save-excursion
1083 (save-window-excursion
1102 (defun strokes-prompt-user-save-strokes ()
1105 (save-excursion
1121 (goto-char (point-min))
1131 (indent-region (point-min) (point-max) nil)
1132 (write-region (point-min)
1133 (point-max)
1161 (save-excursion
1182 (loop for point in stroke
1183 for x = (car-safe point)
1184 for y = (cdr-safe point) do
1185 (cond ((consp point)
1186 ;; draw a point, and possibly a starting-point
1188 ;; mark starting point with the appropriate color
1198 ;; Otherwise, just plot the point...
1201 (subst-char-in-region (point) (1+ (point)) ?\s ?\*)))
1202 ((strokes-lift-p point)
1203 ;; a lift--tell the loop to X out the next point...
1208 (goto-char (point-min))
1302 ;; (point-min " *strokes-xpm*")
1303 ;; (point-max " *strokes-xpm*")
1306 ;; (point) 'text))
1309 ;; finally do (kill-region (1+ (point)) (point-max)))
1311 ;; (goto-char (point-min)))
1361 (kill-region (1+ (point)) (point-max))))
1370 (goto-char (point-min))))
1408 'strokes-prompt-user-save-strokes)
1539 (save-excursion
1541 (goto-char (point-min))
1545 ;; the `current-char' is the char being counted -- NOT the char at (point)
1546 ;; which happens to be called `char-at-point'
1553 (char-at-point (char-after))) ; read the first char
1554 (while (not (eq char-at-point ?})) ; a `}' denotes the
1557 ;; check to see if the `char-at-point' is an actual pixmap bit
1558 (when (strokes-xpm-char-bit-p char-at-point)
1560 current-char-is-on-p (strokes-xpm-char-on-p char-at-point)))
1576 ; (point)
1577 ((strokes-xpm-char-bit-p char-at-point) ; an actual xpm bit
1579 (strokes-xpm-char-on-p char-at-point))
1588 ;; (point) in this case instead of letting another
1606 (setq char-at-point (char-after)))
1623 (save-excursion
1632 (goto-char (point-min))
1672 (save-excursion
1691 (get-text-property (point) 'type))
1692 (setq start (next-single-property-change (point) 'type)))
1693 (when (eq 'stroke-glyph (get-text-property (point) 'type))
1695 (setq start (point-marker)
1697 (insert "+/" (get-text-property (point) 'data) ?/)
1699 (add-text-properties start (point)
1709 (save-excursion
1714 (goto-char (point-min))
1724 (goto-char (point-min))
1729 (goto-char (point-min))
1745 ;; strokes-decode-buffer does a save-excursion.
1750 (remove-hook 'kill-emacs-query-functions 'strokes-prompt-user-save-strokes))