Mercurial > emacs
view lisp/type-break.el @ 6146:1a2a8ef9b4af
(makefile-mode): Set local-write-file-hooks, not write-file-hooks.
Version 1.16.
(makefile-mode): Correct `make-variable-buffer-local' to
`make-local-variable'. Set indent-tabs-mode to t.
(makefile-insert-macro-ref): Do not append a space
to the inserted macro reference.
(makefile-insert-macro-ref): Likewise if the reference is to
one of makefile-runtime-macros-list.
(makefile-format-macro-ref): If the name of the macro ref
starts with a '(' or '{' then the enclosing parentheses are not added.
(makefile-warn-suspicious-lines): New function.
Changed mode name to "Makefile" instead of "makefile".
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 02 Mar 1994 07:57:04 +0000 |
parents | 454dc146502d |
children | 5ecef3b02f2d |
line wrap: on
line source
(require 'timer) ;;;###autoload (defvar hanoi-break-interval (* 60 30) "*Number of seconds between Hanoi breaks.") (add-hook 'post-command-hook 'hanoi-break-check t) (defvar hanoi-break-p nil "Non-nil if we need a Hanoi break real soon now.") (defun hanoi-break-check () "Take a Hanoi break if the time has come." (and (not (input-pending-p)) (prog1 hanoi-break-p (setq hanoi-break-p nil)) (hanoi-break))) ;;;###autoload (defun hanoi-break () "Take a Hanoi break, son." (interactive) (save-window-excursion (eval (condition-case error (if (not (yes-or-no-p "Take a break now? ")) '(hanoi-break-schedule 60) ; Bug him again in one minute. ;; Eat the screen. (if (eq (selected-window) (minibuffer-window)) (other-window 1)) (delete-other-windows) (scroll-right (window-width)) ;; Send him on his way. (message "Take a break, son.") (if (get-buffer "*Hanoi*") (kill-buffer "*Hanoi*")) (condition-case () (progn (hanoi (/ (window-width) 8)) ;; Wait for him to come back. (read-char) (kill-buffer "*Hanoi*")) (quit nil)) '(hanoi-break-schedule)) ; Schedule next break. (quit '(hanoi-break-schedule 60)) ; Bug him again in one minute. ;;(error t) )))) ;;;###autoload (defun hanoi-break-schedule (&optional time) "Schedule a break for ARG seconds from now (default: hanoi-break-interval)." (interactive (list (and current-prefix-arg (prefix-numeric-value current-prefix-arg)))) (or time (setq time hanoi-break-interval)) (run-at-time time nil 'hanoi-break-soon)) (defun hanoi-break-soon () "Take a Hanoi break very soon." (setq hanoi-break-p t)) (defun cancel-hanoi-break () "Cancel scheduled Hanoi breaks." (interactive) (cancel-function-timers 'hanoi-break-soon)) (provide 'hanoi-break)