home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / saveconf.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  5.3 KB  |  64 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 16:39:59 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/saveconf.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (provide 'saveconf)
  14. (defconst save-context-version "Norma Jean" "\
  15. A unique string which is placed at the beginning of every saved context
  16. file.  If the string at the beginning of the context file doesn't match the
  17. value of this variable the `recover-context' command will ignore the file's
  18. contents.")
  19. (defvar auto-save-and-recover-context nil "\
  20. *If non-nil the `save-context' command will always be run before Emacs is
  21. exited.  Also upon Emacs startup, if this variable is non-nil and Emacs is
  22. passed no command line arguments, `recover-context' will be run.")
  23. (defvar save-buffer-context nil "\
  24. *If non-nil the `save-context' command will save the context
  25. of buffers that are visiting files, as well as the contexts of buffers
  26. that have windows.")
  27. (defvar save-context-predicate #[(w) "└┴\n!!¡ë├─└┴\n!!\"?ç" [buffer-file-name window-buffer w string-match "^\\(/usr\\)?/tmp/"] 5] "\
  28. *Value is a predicate function which determines which windows' contexts
  29. are saved.  When the `save-context' command is invoked, this function will
  30. be called once for each existing Emacs window.  The function should accept
  31. one argument which will be a window object, and should return non-nil if
  32. the window's context should be saved.")
  33. (byte-code "└┴!¼à┴┬KMê├─┼╟EE└ç" [fboundp just-kill-emacs kill-emacs let ((starting-up (not command-line-processed))) prog1 top-level (and starting-up auto-save-and-recover-context (null (cdr command-line-args)) (recover-context))] 5)
  34. (fset 'kill-emacs #[(&optional query) "½å    ¼â┬ ê├ !ç" [auto-save-and-recover-context purify-flag save-context just-kill-emacs query] 2 "\
  35. End this Emacs session.
  36. Prefix ARG or optional first ARG non-nil means exit with no questions asked,
  37. even if there are unsaved buffers.  If Emacs is running non-interactively
  38. and ARG is an integer, then Emacs exits with ARG as its exit code.
  39.  
  40. If the variable `auto-save-and-restore-context' is non-nil,
  41. the function save-context will be called first." "P"])
  42. (fset 'save-context #[nil "└┴┬Åç" [error-data (byte-code "└ëë─ ┼╞ Q╟    !¼ô╟─ !½ç╚╔    \"ê¬å╚╩─ \"ê╦╠!ëqê═ ê╬└!ê╧╨╤ \"ê`½å╧╙╘ \"ê╒ !½⌐ qê└╫cê\nbê╫cêebê╪ \"ê┌cê╬└!ê█ed    └▄%ê¬à▌▐▀Åêα !+ç" [nil save-file-name mark context-buffer original-working-directory ".emacs_" user-login-name file-writable-p error "context is write-protected, %s" "can't access directory, %s" get-buffer-create " *Context Info*" erase-buffer set-buffer-modified-p mapcar #[(w) "    !¡Ö┬├─    !!\"ê╞╟\"ê┬╚    !\"ê╞╔\"ç" [save-context-predicate w prin1 buffer-file-name window-buffer context-buffer princ " " window-point "\n"] 4] window-list save-buffer-context #[(b) "qê    ¡ô┬     \"ê─┼ \"ê┬` \"ê─╞ \"ç" [b buffer-file-name prin1 context-buffer princ " " "\n"] 3] buffer-list buffer-modified-p buffer-offer-save "nil\n" prin1 save-context-version "\n\n" write-region quiet data (delete-file save-file-name) ((error)) kill-buffer] 7) ((error))] 3 "\
  43. Save context of all Emacs windows (files visited and position of point).
  44. The information goes into a file called .emacs_<username> in the directory
  45. where the Emacs session was started.  The context can be recovered with the
  46. `recover-context' command, provided you are in the same directory where
  47. the context was saved.
  48.  
  49. If the variable `save-buffer-context' is non-nil, the context of all buffers
  50. visiting files will be saved as well.
  51.  
  52. Window sizes and shapes are not saved, since these may not be recoverable
  53. on terminals with a different number of rows and columns." nil])
  54. (fset 'recover-context #[nil "└┴┬Åç" [error-data (byte-code "└ëë─ ┼╞ Q╟    !¼à╚╔    \"ê╩╦!ëqê╠ ê═    └\"ê╬└!ê╧ ╨U½à╚╤    \"ê╥\n!ëܼà╚╘ \"ê╥\n!ë½¢╒╓ !ê╫ ½â╪ ê┘┌!ê█ !ê╥\n!bê¬^╥\n!ë½î▄ !qê╥\n!bê¬m▌▐!ê▀\n!ê+αç" [nil recover-file-name context-buffer sexpr original-working-directory ".emacs_" user-login-name file-readable-p error "can't access context, %s" get-buffer-create " *Recovered Context*" erase-buffer insert-file-contents set-buffer-modified-p buffer-size 0 "context file is empty, %s" read save-context-version "version string incorrect, %s" select-window get-largest-window buffer-file-name split-window other-window 1 find-file find-file-noselect bury-buffer "*scratch*" kill-buffer t] 4) ((error))] 3 "\
  55. Recover an Emacs context saved by `save-context' command.
  56. Files that were visible in windows when the context was saved are visited and
  57. point is set in each window to what is was when the context was saved." nil])
  58. (fset 'original-working-directory #[nil "è└┴!qê\n)ç" [get-buffer-create "*scratch*" default-directory] 2])
  59. (fset 'window-list #[(&optional mini) "└┴┬ ! \"ë┼Bë└ \"ë =¼ô┼Bí└ \"ë¬i,ç" [next-window previous-window selected-window mini first-window nil windows current-cons w] 4 "\
  60. Returns a list of Lisp window objects for all Emacs windows.
  61. Optional first arg MINIBUF t means include the minibuffer window
  62. in the list, even if it is not active.  If MINIBUF is neither t
  63. nor nil it means to not count the minibuffer window even if it is active."])
  64.