From 8aa8876085ebc42907997d234ff55bc8910f08d4 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 2 Feb 2011 23:11:31 -0800 Subject: [PATCH] strokes.el trivia. * lisp/strokes.el (strokes-fill-current-buffer-with-whitespace): Move definition before use. (strokes-report-bug): Make it obsolete. --- lisp/ChangeLog | 6 ++++++ lisp/strokes.el | 18 +++++++++--------- 2 files changed, 15 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8b7d36b8387..de6463feeab 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2011-02-03 Glenn Morris + + * strokes.el (strokes-fill-current-buffer-with-whitespace): + Move definition before use. + (strokes-report-bug): Make it obsolete. + 2011-02-02 Sam Steingold * apropos.el (apropos-print): Now that `apropos-mode' inherits diff --git a/lisp/strokes.el b/lisp/strokes.el index feeb8fec944..51e75c4387c 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el @@ -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. -- 2.39.5