home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / add-log.elc next >
Encoding:
Text File  |  1993-06-08  |  2.1 KB  |  25 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 16:31:12 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/add-log.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. (fset 'prompt-for-change-log-name #[nil "┴=½â┬¬ü├┼╞╟╚ \"╔ #!)ç" [system-type vax-vms "$CHANGE_LOG$.TXT" "ChangeLog" default expand-file-name read-file-name format "Log file (default %s): " nil] 5 "\
  14. Prompt for a change log name."])
  15. (fset 'add-change-log-entry #[(whoami file-name &optional other-window) "┴=½â┬¬ü├½ç╞╟╚ \"¬é╚     ½ç╞╩╦ \"¬é╦  ½ç╞═╬ \"¬é╬ ╨!½ê╥! P½Äܼç╒!ê¬à╓!ê╫ êebê╪┘ ┌█O!½ì╪▄    ▌ ▐░!¼Å┘ ▀    ▌ αß▒êebêΓyê╪π!½àΓyê¬v`Σσxê`|êµτ!êΦyê)jêΩc,ç" [system-type vax-vms "$CHANGE_LOG$.TXT" "ChangeLog" default whoami read-input "Full name: " user-full-name full-name "Login name: " user-login-name login-name "Site name: " system-name site-name file-directory-p file-name file-name-as-directory other-window buffer-file-name find-file-other-window find-file undo-boundary looking-at current-time-string 0 10 ".* " "  (" " at" "  " " at " ")\n\n" 1 "\\sW" "\n" nil open-line 3 2 left-margin "* "] 8 "\
  16. Find change log file and add an entry for today.
  17. First arg (interactive prefix) non-nil means prompt for user name and site.
  18. Second arg is file name of change log.
  19. Optional third arg OTHER-WINDOW non-nil means visit in other window." (byte-code "┴ Dç" [current-prefix-arg prompt-for-change-log-name] 2)])
  20. (fset 'add-change-log-entry-other-window #[(whoami file-name) "└    \n├#ç" [add-change-log-entry whoami file-name t] 4 "\
  21. Find change log file and add an entry for today.
  22. First arg (interactive prefix) non-nil means prompt for user name and site.
  23. Second arg is file name of change log.
  24. Interactively, with a prefix argument, the file name is prompted for." (byte-code "½à┴ Dç┬ Dç" [current-prefix-arg prompt-for-change-log-name nil default-directory] 2)])
  25.