(princ ")")
(print-help-return-message)))
+(provide 'apropos)
+
;;; apropos.el ends here
(setq auto-insert-alist (cons (cons key action)
auto-insert-alist))))))
+(provide 'autoinsert)
+
;;; autoinsert.el ends here
nil nil nil "-o" (expand-file-name filename))
(message "ncgen in progress...done"))
+(provide 'cdl)
+
;;; cdl.el ends here.
(message "Buffer %s does not exist!" bufnam)
(sit-for 4))))
+(provide 'ebuff-menu)
+
;;; ebuff-menu.el ends here
(progn (message "")
(throw 'electric-history-quit nil))))
+(provide 'echistory)
+
;;; echistory.el ends here
(message "Copyright extends beyond `copyright-limit' and won't be updated automatically."))
comment-end)
+(provide 'copyright)
+
;; copyright.el ends here
(set-buffer standard-output)
(help-mode))))
+(provide 'debug)
+
;;; debug.el ends here
(insert "\n")))))
nil)
+(provide 'disass)
+
;;; disass.el ends here
GNU Emacs 19 does not currently generate process-output events."
(eq (car-safe obj) 'process))
+(provide 'levents)
+
;;; levents.el ends here
(push-mark)
(insert clip)))
+(provide 'lselect)
+
;;; lselect.el ends here.
(interactive)
(process-send-string profile-timer-process "q\n"))
+(provide 'profile)
+
;;; profile.el ends here
(global-set-key [C-home] 'beginning-of-buffer)
(global-set-key [C-end] 'end-of-buffer))
+(provide 'pc-mode)
+
;; pc-mode.el ends here
(if flag (forward-char 1))))) arg)
t))
+(provide 'vi)
+
;;; vi.el ends here
(if (file-exists-p vip-startup-file) (load vip-startup-file))
+(provide 'vip)
+
;;; vip.el ends here
(ws-block-end-marker "Block begin marker not set")
(t "Block markers not set")))))
+(provide 'ws-mode)
+
;;; ws-mode.el ends here
(setq ptr (cdr ptr))))
)
+(provide 'find-gc)
+
;;; find-gc.el ends here
(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.")
(inferior-emacs-lisp-mode)))
(pop-to-buffer "*ielm*"))
+(provide 'ielm)
+
;;; ielm.el ends here
(error (message ">> Error: %s" (prin1-to-string err))))))
(kill-emacs error))))
+(provide 'informat)
+
;;; informat.el ends here
(interactive)
(set-process-filter (get-buffer-process (current-buffer)) nil))
+(provide 'kermit)
+
;;; kermit.el ends here
(setq major-mode 'ledit-mode)
(run-hooks 'ledit-mode-hook))
+(provide 'ledit)
+
;;; ledit.el ends here
;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query)
+(provide 'macros)
+
;;; macros.el ends here
(if (bufferp errbuf)
(switch-to-buffer errbuf)))))
+(provide 'mailpost)
+
;;; mailpost.el ends here
(interactive)
(mail-other-window nil nil nil nil nil (current-buffer)))
+(provide 'rnewspost)
+
;;; rnewspost.el ends here
(rmail-update-summary))))))
(set-buffer obuf))))
+(provide 'undigest)
+
;;; undigest.el ends here
(rmail-output to-file 1 t))
(message "Writing messages to %s...done" to-file)))
+(provide 'unrmail)
+
;;; unrmail.el ends here
(if (file-attributes "~/.signature")
(insert-file-contents "~/.signature")))))
+(provide 'vms-pmail)
+
;;; vms-pmail.el ends here
(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.
(+ n (point)))))))
(insert string)))
+(provide 'misc)
+
;;; misc.el ends here
(insert "\n(put '" (symbol-name command) " 'disabled t)\n")
(save-buffer)))
+(provide 'novice)
+
;;; novice.el ends here
;; 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
(kill-sexp 1)
(prin1 (symbol-value var) (current-buffer)))))
+(provide 'options)
+
;;; options.el ends here
((equal item (car list)) (cdr list))
(t (cons (car list) (bb-delete item (cdr list))))))
+(provide 'blackbox)
+
;;; blackbox.el ends here
(funcall search-function overlap opoint t))))))
(sit-for 0))))
+(provide 'dissociate)
+
;;; dissociate.el ends here
(insert "Mein fuehrer!!\n")
(doctor-read-print))
+(provide 'doctor)
+
;;; doctor.el ends here
(setq dun-batch-mode t)
(dun-batch-loop))
+(provide 'dunnet)
+
+;; dunnet.el ends here
(setq list (cons digit list))))
(mapcar 'mpuz-correct-guess list)))
+(provide 'mpuz)
+
;;; mpuz.el ends here
;; cleaned up, generalized, gratuitously broken by esr, and now resides in
;; cookie1.el.
+(provide 'spook)
+
;;; spook.el ends here
(interactive "*")
(studlify-region (point-min) (point-max)))
+(provide 'studly)
+
;;; studly.el ends here
)
(end-of-line))
+(provide 'asm-mode)
+
;;; asm-mode.el ends here
;; (beginning-of-line 1)))
;; (goto-char restore)))
+(provide 'cplus-md)
+
;;; cplus-md.el ends here
(find-file-other-window
(concat (substring (buffer-name) 0 -3) ".mi")))))
+(provide 'modula2)
+
;;; modula2.el ends here
(pascal-goto-defun)
(pascal-hide-other-defuns))
+(provide 'pascal)
+
;;; pascal.el ends here
(prolog-consult-region compile beg end)
(switch-to-buffer "*prolog*"))
+(provide 'prolog)
+
;;; prolog.el ends here
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
;("E460" "G200" "H416" "K530" "L300" "L222"
; "E460" "G200" "H416" "K530" "L300" "L222")
+(provide 'soundex)
+
;; soundex.el ends here
(select-window (frame-first-window frame)))
(select-frame old-frame))))
+(provide 'talk)
+
;;; talk.el ends here
(cond ((null arg) (null nroff-electric-mode))
(t (> (prefix-numeric-value arg) 0)))))
+(provide 'nroff-mode)
+
;;; nroff-mode.el ends here
(save-excursion
(insert (aref scribe-close-parentheses paren-char)))))))
+(provide 'scribe)
+
;;; scribe.el ends here
(replace-match " "))
(message "%sincorrect" (buffer-substring 1 (point-max)))))))
+(provide 'spell)
+
;;; spell.el ends here
(while (re-search-forward "_\b\\|\b_" end1 t)
(delete-char -2)))))
+(provide 'underline)
+
;;; underline.el ends here
(and (file-exists-p file)
(< 0 (nth 7 (file-attributes (file-chase-links file))))))
+(provide 'time)
+
;;; time.el ends here
(if vt-applications-keypad-p (vt-keypad-off (interactive-p))
(vt-keypad-on (interactive-p))))
+(provide 'vt-control)
+
;;; vt-control.el ends here
(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
(and litem (funcall litem event)))
(pop-to-buffer x-menu-assoc-buffer))
+(provide 'x-menu)
+
;;; x-menu.el ends here