summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorDan Nicolaescu <dann@ics.uci.edu>2008-03-14 17:42:18 +0000
committerDan Nicolaescu <dann@ics.uci.edu>2008-03-14 17:42:18 +0000
commitf31b125795291270828b41185f663584ae95e518 (patch)
treec6ba59d32aea8869b7a0a7e985e9b9c6190adb21 /lisp/emacs-lisp
parent294f1153b56701321c2dd9ef1aa2483b17dc4bf8 (diff)
downloademacs-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.el2
-rw-r--r--lisp/emacs-lisp/timer.el11
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.