Commit 896546cd authored by Richard M. Stallman's avatar Richard M. Stallman

Add provide call.

parent 43c89a96
......@@ -625,4 +625,6 @@ found."
(princ ")")
(print-help-return-message)))
(provide 'apropos)
;;; apropos.el ends here
......@@ -253,4 +253,6 @@ or if CONDITION had no actions, after all other CONDITIONs."
(setq auto-insert-alist (cons (cons key action)
auto-insert-alist))))))
(provide 'autoinsert)
;;; autoinsert.el ends here
......@@ -41,4 +41,6 @@
nil nil nil "-o" (expand-file-name filename))
(message "ncgen in progress...done"))
(provide 'cdl)
;;; cdl.el ends here.
......@@ -262,4 +262,6 @@ Returns to Electric Buffer Menu when done."
(message "Buffer %s does not exist!" bufnam)
(sit-for 4))))
(provide 'ebuff-menu)
;;; ebuff-menu.el ends here
......@@ -147,4 +147,6 @@ The Command History listing is recomputed each time this mode is invoked."
(progn (message "")
(throw 'electric-history-quit nil))))
(provide 'echistory)
;;; echistory.el ends here
......@@ -143,4 +143,6 @@ copyright, if any, are updated as well."
(message "Copyright extends beyond `copyright-limit' and won't be updated automatically."))
comment-end)
(provide 'copyright)
;; copyright.el ends here
......@@ -504,4 +504,6 @@ If argument is nil or an empty string, cancel for all functions."
(set-buffer standard-output)
(help-mode))))
(provide 'debug)
;;; debug.el ends here
......@@ -263,4 +263,6 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
(insert "\n")))))
nil)
(provide 'disass)
;;; disass.el ends here
......@@ -285,4 +285,6 @@ an existing event object."
GNU Emacs 19 does not currently generate process-output events."
(eq (car-safe obj) 'process))
(provide 'levents)
;;; levents.el ends here
......@@ -227,4 +227,6 @@ the kill ring or the Clipboard."
(push-mark)
(insert clip)))
(provide 'lselect)
;;; lselect.el ends here.
......@@ -322,4 +322,6 @@ DEF is (symbol-function FUN)."
(interactive)
(process-send-string profile-timer-process "q\n"))
(provide 'profile)
;;; profile.el ends here
......@@ -49,4 +49,6 @@ C-Escape does list-buffers."
(global-set-key [C-home] 'beginning-of-buffer)
(global-set-key [C-end] 'end-of-buffer))
(provide 'pc-mode)
;; pc-mode.el ends here
......@@ -1483,4 +1483,6 @@ With ARG, inserts that many newlines."
(if flag (forward-char 1))))) arg)
t))
(provide 'vi)
;;; vi.el ends here
......@@ -3042,4 +3042,6 @@ vip-s-string"
(if (file-exists-p vip-startup-file) (load vip-startup-file))
(provide 'vip)
;;; vip.el ends here
......@@ -752,4 +752,6 @@ sWith: " )
(ws-block-end-marker "Block begin marker not set")
(t "Block markers not set")))))
(provide 'ws-mode)
;;; ws-mode.el ends here
......@@ -149,4 +149,6 @@
(setq ptr (cdr ptr))))
)
(provide 'find-gc)
;;; find-gc.el ends here
......@@ -103,7 +103,7 @@ This variable is buffer-local.")
(defvar ielm-header
(concat
"*** Welcome to IELM version "
(substring "$Revision: 1.12 $" 11 -2)
(substring "$Revision: 1.13 $" 11 -2)
" *** Type (describe-mode) for help.\n"
"IELM has ABSOLUTELY NO WARRANTY; type (describe-no-warranty) for details.\n")
"Message to display when IELM is started.")
......@@ -490,4 +490,6 @@ Switches to the buffer `*ielm*', or creates it if it does not exist."
(inferior-emacs-lisp-mode)))
(pop-to-buffer "*ielm*"))
(provide 'ielm)
;;; ielm.el ends here
......@@ -427,4 +427,6 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\""
(error (message ">> Error: %s" (prin1-to-string err))))))
(kill-emacs error))))
(provide 'informat)
;;; informat.el ends here
......@@ -147,4 +147,6 @@ command `kermit | tr -d '\\015''."
(interactive)
(set-process-filter (get-buffer-process (current-buffer)) nil))
(provide 'kermit)
;;; kermit.el ends here
......@@ -152,4 +152,6 @@ do (setq lisp-mode-hook 'ledit-from-lisp-mode)"
(setq major-mode 'ledit-mode)
(run-hooks 'ledit-mode-hook))
(provide 'ledit)
;;; ledit.el ends here
......@@ -303,4 +303,6 @@ and then select the region of un-tablified names and use
;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query)
(provide 'macros)
;;; macros.el ends here
......@@ -100,4 +100,6 @@ site-init."
(if (bufferp errbuf)
(switch-to-buffer errbuf)))))
(provide 'mailpost)
;;; mailpost.el ends here
......@@ -438,4 +438,6 @@ original message into it."
(interactive)
(mail-other-window nil nil nil nil nil (current-buffer)))
(provide 'rnewspost)
;;; rnewspost.el ends here
......@@ -181,4 +181,6 @@ following the containing message."
(rmail-update-summary))))))
(set-buffer obuf))))
(provide 'undigest)
;;; undigest.el ends here
......@@ -63,4 +63,6 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
(rmail-output to-file 1 t))
(message "Writing messages to %s...done" to-file)))
(provide 'unrmail)
;;; unrmail.el ends here
......@@ -114,4 +114,6 @@ If neither file exists, fails quietly."
(if (file-attributes "~/.signature")
(insert-file-contents "~/.signature")))))
(provide 'vms-pmail)
;;; vms-pmail.el ends here
......@@ -111,4 +111,6 @@ Previous contents of that buffer are killed first."
(setq lines (cdr lines))))
(goto-char (- (point-max) from-end))))
(provide 'makesum)
;;; makesum.el ends here
;;; misc.el --- basic editing commands for Emacs
;;; misc.el --- some nonstandard basic editing commands for Emacs
;; Copyright (C) 1989 Free Software Foundation, Inc.
......@@ -55,4 +55,6 @@ The characters copied are inserted in the buffer before point."
(+ n (point)))))))
(insert string)))
(provide 'misc)
;;; misc.el ends here
......@@ -142,4 +142,6 @@ to future sessions."
(insert "\n(put '" (symbol-name command) " 'disabled t)\n")
(save-buffer)))
(provide 'novice)
;;; novice.el ends here
......@@ -29,6 +29,8 @@
;; mode specifically for editing option values. Do `M-x describe-mode' in
;; that context for more details.
;; The customization buffer feature is intended to make this obsolete.
;;; Code:
;;;###autoload
......@@ -139,4 +141,6 @@ For convenience, the characters \\[backward-paragraph] and \\[forward-paragraph]
(kill-sexp 1)
(prin1 (symbol-value var) (current-buffer)))))
(provide 'options)
;;; options.el ends here
......@@ -418,4 +418,6 @@ a reflection."
((equal item (car list)) (cdr list))
(t (cons (car list) (bb-delete item (cdr list))))))
(provide 'blackbox)
;;; blackbox.el ends here
......@@ -98,4 +98,6 @@ Default is 2."
(funcall search-function overlap opoint t))))))
(sit-for 0))))
(provide 'dissociate)
;;; dissociate.el ends here
......@@ -1614,4 +1614,6 @@ Hack on previous word, setting global variable OWNER to correct result."
(insert "Mein fuehrer!!\n")
(doctor-read-print))
(provide 'doctor)
;;; doctor.el ends here
......@@ -3361,4 +3361,7 @@ File not found")))
(setq dun-batch-mode t)
(dun-batch-loop))
(provide 'dunnet)
;; dunnet.el ends here
......@@ -441,4 +441,6 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
(setq list (cons digit list))))
(mapcar 'mpuz-correct-guess list)))
(provide 'mpuz)
;;; mpuz.el ends here
......@@ -66,4 +66,6 @@
;; cleaned up, generalized, gratuitously broken by esr, and now resides in
;; cookie1.el.
(provide 'spook)
;;; spook.el ends here
......@@ -60,4 +60,6 @@
(interactive "*")
(studlify-region (point-min) (point-max)))
(provide 'studly)
;;; studly.el ends here
......@@ -228,4 +228,6 @@ repeatedly until you are satisfied with the kind of comment."
)
(end-of-line))
(provide 'asm-mode)
;;; asm-mode.el ends here
......@@ -1058,4 +1058,6 @@ The fill lines remain a comment."
;; (beginning-of-line 1)))
;; (goto-char restore)))
(provide 'cplus-md)
;;; cplus-md.el ends here
......@@ -544,4 +544,6 @@ FROM SysStreams IMPORT sysIn, sysOut, sysErr;
(find-file-other-window
(concat (substring (buffer-name) 0 -3) ".mi")))))
(provide 'modula2)
;;; modula2.el ends here
......@@ -1590,4 +1590,6 @@ Pascal Outline mode provides some additional commands.
(pascal-goto-defun)
(pascal-hide-other-defuns))
(provide 'pascal)
;;; pascal.el ends here
......@@ -286,4 +286,6 @@ If COMPILE (prefix arg) is not nil, use compile mode rather than consult mode."
(prolog-consult-region compile beg end)
(switch-to-buffer "*prolog*"))
(provide 'prolog)
;;; prolog.el ends here
......@@ -190,9 +190,11 @@ first comment line visible (if point is in a comment)."
lines
(- lines))))
; (defmacro repos-debug-macro (case-no)
; (` (message
; (concat "Case " (, case-no) ": %s %s %s %s %s")
; ht line comment-height defun-height defun-depth)))
;; (defmacro repos-debug-macro (case-no)
;; (` (message
;; (concat "Case " (, case-no) ": %s %s %s %s %s")
;; ht line comment-height defun-height defun-depth)))
(provide 'reposition)
;;; reposition.el ends here
......@@ -71,4 +71,6 @@ and Searching\", Addison-Wesley (1973), pp. 391-392."
;("E460" "G200" "H416" "K530" "L300" "L222"
; "E460" "G200" "H416" "K530" "L300" "L222")
(provide 'soundex)
;; soundex.el ends here
......@@ -98,4 +98,6 @@ Select the first of these windows, displaying the first of the buffers."
(select-window (frame-first-window frame)))
(select-frame old-frame))))
(provide 'talk)
;;; talk.el ends here
......@@ -267,4 +267,6 @@ turns it on iff arg is positive, otherwise off."
(cond ((null arg) (null nroff-electric-mode))
(t (> (prefix-numeric-value arg) 0)))))
(provide 'nroff-mode)
;;; nroff-mode.el ends here
......@@ -322,4 +322,6 @@ preceding text is of the form @Command."
(save-excursion
(insert (aref scribe-close-parentheses paren-char)))))))
(provide 'scribe)
;;; scribe.el ends here
......@@ -151,4 +151,6 @@ for example, \"word\"."
(replace-match " "))
(message "%sincorrect" (buffer-substring 1 (point-max)))))))
(provide 'spell)
;;; spell.el ends here
......@@ -60,4 +60,6 @@ which specify the range to operate on."
(while (re-search-forward "_\b\\|\b_" end1 t)
(delete-char -2)))))
(provide 'underline)
;;; underline.el ends here
......@@ -241,4 +241,6 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'."
(and (file-exists-p file)
(< 0 (nth 7 (file-attributes (file-chase-links file))))))
(provide 'time)
;;; time.el ends here
......@@ -104,4 +104,6 @@
(if vt-applications-keypad-p (vt-keypad-off (interactive-p))
(vt-keypad-on (interactive-p))))
(provide 'vt-control)
;;; vt-control.el ends here
......@@ -88,3 +88,7 @@
(global-set-key [edit] 'find-file) ;EDIT
(global-set-key [S-shell] 'shell) ;SHELL
(global-set-key [S-help] 'manual-entry) ;HELP
(provide 'x-apollo)
;;; x-apollo.el ends here
......@@ -142,4 +142,6 @@ available to the user. This also creates the menu itself."
(and litem (funcall litem event)))
(pop-to-buffer x-menu-assoc-buffer))
(provide 'x-menu)
;;; x-menu.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment