diff options
author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-03-14 17:42:18 +0000 |
---|---|---|
committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-03-14 17:42:18 +0000 |
commit | f31b125795291270828b41185f663584ae95e518 (patch) | |
tree | c6ba59d32aea8869b7a0a7e985e9b9c6190adb21 /lisp/emacs-lisp | |
parent | 294f1153b56701321c2dd9ef1aa2483b17dc4bf8 (diff) | |
download | emacs-f31b125795291270828b41185f663584ae95e518.tar.gz |
* faces.el (xw-defined-colors):
* simple.el (widget-convert, shell-mode): Declare as functions
instead of autoloading.
* abbrev.el:
* button.el:
* cus-face.el:
* ediff-hook.el:
* emacs-lisp/backquote.el:
* emacs-lisp/timer.el:
* facemenu.el:
* faces.el:
* menu-bar.el:
* simple.el:
* subr.el:
* textmodes/fill.el:
* textmodes/paragraphs.el: Remove autoloads, redundant when the
files are preloaded.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/backquote.el | 2 | ||||
-rw-r--r-- | lisp/emacs-lisp/timer.el | 11 |
2 files changed, 2 insertions, 11 deletions
diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el index e0988fe5e90..68ef78aed5c 100644 --- a/lisp/emacs-lisp/backquote.el +++ b/lisp/emacs-lisp/backquote.el @@ -91,7 +91,6 @@ For example (backquote-list* 'a 'b 'c) => (a b . c)" (defconst backquote-splice-symbol '\,@ "Symbol used to represent a splice inside a backquote.") -;;;###autoload (defmacro backquote (structure) "Argument STRUCTURE describes a template to build. @@ -110,7 +109,6 @@ Vectors work just like lists. Nested backquotes are permitted." ;; GNU Emacs has no reader macros -;;;###autoload (defalias '\` (symbol-function 'backquote)) ;; backquote-process returns a dotted-pair of a tag (0, 1, or 2) and diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el index b2f54990ceb..6ca68824d95 100644 --- a/lisp/emacs-lisp/timer.el +++ b/lisp/emacs-lisp/timer.el @@ -251,9 +251,8 @@ of allocating a new one." nil) (error "Invalid or uninitialized timer"))) -;;;###autoload (defalias 'disable-timeout 'cancel-timer) -;;;###autoload + (defun cancel-timer (timer) "Remove TIMER from the list of active timers." (or (timerp timer) @@ -274,7 +273,6 @@ that was removed from the timer list." (setq timer-idle-list (delq timer timer-idle-list))) (or cell1 cell2))) -;;;###autoload (defun cancel-function-timers (function) "Cancel all timers which would run FUNCTION. This affects ordinary timers such as are scheduled by `run-at-time', @@ -359,7 +357,6 @@ This function is called, by name, directly by the C code." (declare-function diary-entry-time "diary-lib" (s)) -;;;###autoload (defun run-at-time (time repeat function &rest args) "Perform an action at time TIME. Repeat the action every REPEAT seconds, if REPEAT is non-nil. @@ -421,7 +418,6 @@ This function returns a timer object which you can use in `cancel-timer'." (timer-activate timer) timer)) -;;;###autoload (defun run-with-timer (secs repeat function &rest args) "Perform an action after a delay of SECS seconds. Repeat the action every REPEAT seconds, if REPEAT is non-nil. @@ -432,14 +428,12 @@ This function returns a timer object which you can use in `cancel-timer'." (interactive "sRun after delay (seconds): \nNRepeat interval: \naFunction: ") (apply 'run-at-time secs repeat function args)) -;;;###autoload (defun add-timeout (secs function object &optional repeat) "Add a timer to run SECS seconds from now, to call FUNCTION on OBJECT. If REPEAT is non-nil, repeat the timer every REPEAT seconds. This function is for compatibility; see also `run-with-timer'." (run-with-timer secs repeat function object)) -;;;###autoload (defun run-with-idle-timer (secs repeat function &rest args) "Perform an action the next time Emacs is idle for SECS seconds. The action is to call FUNCTION with arguments ARGS. @@ -466,12 +460,11 @@ This function returns a timer object which you can use in `cancel-timer'." "This is the timer function used for the timer made by `with-timeout'." (throw tag 'timeout)) -;;;###autoload (put 'with-timeout 'lisp-indent-function 1) +(put 'with-timeout 'lisp-indent-function 1) (defvar with-timeout-timers nil "List of all timers used by currently pending `with-timeout' calls.") -;;;###autoload (defmacro with-timeout (list &rest body) "Run BODY, but if it doesn't finish in SECONDS seconds, give up. If we give up, we run the TIMEOUT-FORMS and return the value of the last one. |