diff options
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/.emacs.d/init.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el index 3dea91e..099f2b1 100644 --- a/emacs/.emacs.d/init.el +++ b/emacs/.emacs.d/init.el @@ -752,6 +752,16 @@ If no direction is given, don't split." (define-key yas-minor-mode-map [(tab)] nil) (define-key yas-minor-mode-map (kbd "C-\\") 'yas-expand)) +(defun multiplication-table (number &optional upto) + "" + (interactive "nMultiplication table for: \nP") + (let ((upto (or upto 10)) + (buffer (get-buffer-create "*Multiplication*"))) + (with-current-buffer buffer + (erase-buffer) + (cl-loop for i from 1 to upto do (insert (format "%5d: %d\n" i (* number i))))) + (pop-to-buffer buffer))) + ;;;; Tests (stante-after ert |