mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

strokes.el trivia.

Browse source 
* lisp/strokes.el (strokes-fill-current-buffer-with-whitespace):
Move definition before use.
(strokes-report-bug): Make it obsolete.
This commit is contained in:
Glenn Morris 2011-02-02 23:11:31 -08:00
parent f6041baa9d
commit 8aa8876085
2 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2011-02-03 Glenn Morris <rgm@gnu.org>
* strokes.el (strokes-fill-current-buffer-with-whitespace):
Move definition before use.
(strokes-report-bug): Make it obsolete.
2011-02-02 Sam Steingold <sds@gnu.org>
* apropos.el (apropos-print): Now that `apropos-mode' inherits

18
lisp/strokes.el
View file

@ -718,6 +718,14 @@ Returns the corresponding match as (COMMAND . SCORE)."
nil))
nil))
(defsubst strokes-fill-current-buffer-with-whitespace ()
"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)))
;;;###autoload
(defun strokes-read-stroke (&optional prompt event)
"Read a simple stroke (interactively) and return the stroke.
@ -1034,15 +1042,7 @@ o Strokes are a bit computer-dependent in that they depend somewhat on
(help-mode)
(help-print-return-message)))
(defalias 'strokes-report-bug 'report-emacs-bug)
(defsubst strokes-fill-current-buffer-with-whitespace ()
"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)))
(define-obsolete-function-alias 'strokes-report-bug 'report-emacs-bug "24.1")
(defun strokes-window-configuration-changed-p ()
"Non-nil if the `strokes-window-configuration' frame properties changed.