From 23b809c2a7f08503b91628ece06939dedaa617de Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 23 Apr 2001 11:50:36 +0000 Subject: [PATCH] Fix autoload cookies. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/checkdoc.el | 2 +- lisp/play/fortune.el | 12 ++++++------ lisp/progmodes/ebrowse.el | 12 ++++++------ lisp/textmodes/ispell.el | 2 +- 5 files changed, 19 insertions(+), 14 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3fc5d2bdf94..507640f684c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-04-23 Gerd Moellmann + + * textmodes/ispell.el, emacs-lisp/checkdoc.el, + * progmodes/ebrowse.el, play/fortune.el: Fix autoload cookies. + 2001-04-23 Alex Schroeder * goto-addr.el: Instead of defining line-beginning-position and diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index a2bca2a9b47..5bc22cc19de 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -899,7 +899,7 @@ Return nil if there are no more doc strings." (skip-chars-forward " \n\t") t)) -;;; ###autoload +;;;###autoload (defun checkdoc-comments (&optional take-notes) "Find missing comment sections in the current Emacs Lisp file. Prefix argument TAKE-NOTES non-nil means to save warnings in a diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el index c3e94eaaa37..0ae1a841f43 100644 --- a/lisp/play/fortune.el +++ b/lisp/play/fortune.el @@ -1,5 +1,5 @@ ;;; fortune.el --- Use fortune to create signatures -;; Copyright (C) 1999 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2001 Free Software Foundation, Inc. ;; Author: Holger Schauer ;; Keywords: games utils mail @@ -160,7 +160,7 @@ If INTERACTIVE is non-nil, don't compile the fortune file afterwards." "Fortune file to use: " fortune-dir nil nil ""))) -;;; ###autoload +;;;###autoload (defun fortune-add-fortune (string file) "Add STRING to a fortune file FILE. @@ -171,7 +171,7 @@ read the file name to use. Otherwise use the value of `fortune-file'." (if current-prefix-arg (fortune-ask-file)))) (fortune-append string t file)) -;;; ###autoload +;;;###autoload (defun fortune-from-region (beg end file) "Append the current region to a local fortune-like data file. @@ -217,7 +217,7 @@ read the file name to use. Otherwise use the value of `fortune-file'." ;;; ************** ;;; Compile new database with strfile -;;; ###autoload +;;;###autoload (defun fortune-compile (&optional file) "Compile fortune file. @@ -244,7 +244,7 @@ the value of `fortune-file'. This currently cannot handle directories." ;;; ************** ;;; Use fortune for signature -;;; ###autoload +;;;###autoload (defun fortune-to-signature (&optional file) "Create signature from output of the fortune program. @@ -293,7 +293,7 @@ when supplied, specifies the file to choose the fortune from." (concat fortune-program-options fort-file))))) -;;; ###autoload +;;;###autoload (defun fortune (&optional file) "Display a fortune cookie. diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el index e767bfd831d..4b62a90e115 100644 --- a/lisp/progmodes/ebrowse.el +++ b/lisp/progmodes/ebrowse.el @@ -3822,7 +3822,7 @@ With prefix arg, process files of marked classes only." (ebrowse-tags-loop-continue 'first-time)) -;;; ###autoload +;;;###autoload (defun ebrowse-tags-search-member-use (&optional fix-name) "Search for call sites of a member. If FIX-NAME is specified, search uses of that member. @@ -3926,7 +3926,7 @@ Positions in buffers that have no file names are not saved." ebrowse-position-stack)))) -;;; ###autoload +;;;###autoload (defun ebrowse-back-in-position-stack (arg) "Move backward in the position stack. Prefix arg ARG says how much." @@ -3934,7 +3934,7 @@ Prefix arg ARG says how much." (ebrowse-move-in-position-stack (max 1 arg))) -;;; ###autoload +;;;###autoload (defun ebrowse-forward-in-position-stack (arg) "Move forward in the position stack. Prefix arg ARG says how much." @@ -4019,7 +4019,7 @@ Runs the hook `ebrowse-electric-position-mode-hook'." (setq buffer-read-only t)) -;;; ###autoload +;;;###autoload (defun ebrowse-electric-position-menu () "List positions in the position stack in an electric buffer." (interactive) @@ -4121,7 +4121,7 @@ Installed on `local-write-file-hooks'." t) -;;; ###autoload +;;;###autoload (defun ebrowse-save-tree () "Save current tree in same file it was loaded from." (interactive) @@ -4172,7 +4172,7 @@ Otherwise, FILE-NAME specifies the file to save the tree in." ;;; Statistics -;;; ###autoload +;;;###autoload (defun ebrowse-statistics () "Display statistics for a class tree." (interactive) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index eda0c7d07cc..e8d872027db 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1477,7 +1477,7 @@ Word syntax described by `ispell-dictionary-alist' (which see)." ;;; a value or a list, whose value is the state of whether the ;;; dictionary needs to be saved. -;;; ###autoload +;;;###autoload (defun ispell-pdict-save (&optional no-query force-save) "Check to see if the personal dictionary has been modified. If so, ask if it needs to be saved." -- 2.39.2