home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / dired / gmhist-m.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  8.7 KB  |  140 lines
  1. ;;; compiled by jwz@thalidomide on Tue Aug 18 17:12:08 1992
  2. ;;; from file /u/jwz/emacs19/lisp/dired/gmhist-mh.el
  3. ;;; emacs version 19.2.2 Lucid.
  4. ;;; bytecomp version 2.08;  2-aug-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. (byte-code "└┴!ê┬├!ê─┼!¼é╞╟╚Mç" [require gmhist provide gmhist-mh boundp max-minibuffer-history-length not-implemented gmhist-overwrite #[(fun) "└    !├─\nP!├╞\nP!╚!¼à    KMê    M+ç" [symbol-name fun fun-name intern "gmhist-old-" old-name "gmhist-new-" new-name fboundp] 3]] 2)
  14. (fset 'gmhist-new-read-string #[(gnrs-prompt &optional initial-input) "½å┴\n #ç┼\n \"ç" [minibuffer-history-symbol gmhist-read-from-minibuffer gnrs-prompt initial-input gmhist-map gmhist-old-read-string] 4 "\
  15. Read a string from the minibuffer, prompting with string PROMPT.
  16. If non-nil second arg INITIAL-INPUT is a string to insert before reading.
  17. See also `minibuffer-history-symbol'."])
  18. (gmhist-overwrite 'read-string)
  19. (fset 'gmhist-new-completing-read #[(gncr-prompt table &optional predicate mustmatch initial) "½ë┴\n %ç╟\n %ç" [minibuffer-history-symbol gmhist-completing-read gncr-prompt table predicate mustmatch initial gmhist-old-completing-read] 6 "\
  20. Read a string in the minibuffer, with completion and history.
  21. Args are PROMPT, TABLE, PREDICATE, REQUIRE-MATCH and INITIAL-INPUT.
  22. PROMPT is a string to prompt with; normally it ends in a colon and a space.
  23. TABLE is an alist whose elements' cars are strings, or an obarray (see
  24.   try-completion).
  25. PREDICATE limits completion to a subset of TABLE see try-completion
  26.   for details.
  27. If REQUIRE-MATCH is non-nil, the user is not allowed to exit unless
  28.  the input is (or completes to) an element of TABLE.
  29.  If it is also not t, Return does not exit if it does non-null completion.
  30. If INITIAL-INPUT is non-nil, insert it in the minibuffer initially.
  31. Case is ignored if ambient value of  completion-ignore-case  is non-nil.
  32.  
  33. *** This is the gmhist version ***
  34. See variable `minibuffer-history-symbol'."])
  35. (gmhist-overwrite 'completing-read)
  36. (defvar file-history (get file-history-symbol 'initial-hist) "\
  37. Default history of file names read with read-file-name.
  38. This symbol is the default value of file-history-symbol (q.v.).")
  39. (defvar insert-file-default nil "\
  40. *If non-nil, defaults for filenames will be inserted into the
  41. minibuffer prompt.  This has the advantage of putting the default onto
  42. the file-history (which see).")
  43. (fset 'gmhist-new-read-file-name #[(gnrfn-prompt &optional dir default mustmatch initial) "¼ç┴\n $ç╞\n ½ç¼â ¬é%ç" [file-history-symbol gmhist-old-read-file-name gnrfn-prompt dir default mustmatch gmhist-read-file-name insert-file-default initial] 6 "\
  44. Read file name, maintaining history in value of
  45. file-history-symbol, prompting with PROMPT, completing in directory DIR.
  46.  
  47. Value is not expanded!  You must call expand-file-name yourself.
  48.  
  49. Default name to third arg DEFAULT if user enters a null string.
  50. (If DEFAULT is omitted, the visited file name is used.)
  51.  
  52. Fourth arg MUSTMATCH non-nil means require existing file's name.
  53. Non-nil and non-t means also require confirmation after completion.
  54.  
  55. Fifth arg INITIAL specifies text to start with.
  56. DIR defaults to current buffer's default-directory.
  57.  
  58. *** This is the gmhist version ***
  59.  
  60. It differs from the original read-file-name in providing a
  61. history of filenames in the variable whose name is the value of
  62. file-history-symbol (usually 'file-history) (both of which see).
  63.  
  64. INITIAL defaults to default-directory's value if
  65. insert-default-directory is non-nil.  Also, if insert-file-default is
  66. non-nil, it inserts the DEFAULT string if no INITIAL is given, which
  67. has the advantage of putting the default onto the file-history.
  68. However, setting INITIAL to a string is a way for providing an
  69. editable default, something not possible with (pre Emacs-19)
  70. read-file-name.  Setting INITIAL and insert-default-directory to nil
  71. will yield a basename for the file, relative to default-directory.
  72.  
  73. See function read-with-history-in for a list of properties you can put
  74. on file-history-symbol."])
  75. (defvar after-write-region-hook nil "\
  76. Run after the gmhist version of `write-region'.
  77. The variables `start', `end', `filename', `append', `visit' are bound
  78. around the call to the hook.")
  79. (fset 'gmhist-new-write-region #[(start end filename &optional append visit) "└    \n %╞╟╚Åêç" [gmhist-old-write-region start end filename append visit err (byte-code "└┴!ç" [run-hooks after-write-region-hook] 2) ((error (byte-code "└┴\n\"ê├─!ç" [message "Error in after-write-region-hook %s" err sit-for 1] 3)))] 6 "\
  80. Write current region into specified file.
  81. When called from a program, takes three arguments:
  82. START, END and FILENAME.  START and END are buffer positions.
  83. Optional fourth argument APPEND if non-nil means
  84.   append to existing file contents (if any).
  85. Optional fifth argument VISIT if t means
  86.   set last-save-file-modtime of buffer to this file's modtime
  87.   and mark buffer not modified.
  88. If VISIT is neither t nor nil, it means do not print
  89.   the \"Wrote file\" message.
  90.  
  91. *** This is the gmhist version ***
  92. See variable `after-write-region-hook'." "r\nFWrite region to file: "])
  93. (defvar after-delete-file-hook nil "\
  94. Run after the gmhist version of `delete-file'.
  95. The hook is run with `filename' bound to the filename.")
  96. (fset 'gmhist-new-delete-file #[(filename) "└    !┬├─Åêç" [gmhist-old-delete-file filename err (byte-code "└┴!ç" [run-hooks after-delete-file-hook] 2) ((error (byte-code "└┴\n\"ê├─!ç" [message "Error in after-delete-file-hook %s" err sit-for 1] 3)))] 4 "\
  97. Delete specified file.  One argument, a file name string.
  98. If file has multiple names, it continues to exist with the other names.
  99.  
  100. *** This is the gmhist version ***
  101. See variable `after-delete-file-hook'." "fDelete file: "])
  102. (byte-code "└┴!ê└┬!ê└├!ê─┼╞\"ê─╟╞\"ê─╚╞\"ê─╔╞\"ê─╩╞\"ê─╦╞\"ê─╠╞\"ê─┬╞\"ê─├╞\"ê¼è─╬╞\"ê─╧╞\"ê└ç" [gmhist-overwrite read-file-name write-region delete-file gmhist-make-magic find-file file-history-symbol find-file-other-window find-file-read-only insert-file load-file set-visited-file-name append-to-file gmhist-emacs-19-p write-file find-alternate-file] 3)
  103. (defvar buffer-history-lru-order nil "\
  104. *If non-nil, the buffer history will be the complete buffer
  105. list in most recently used order (as returned by buffer-list).
  106.  
  107. Usually, the buffer history is in the order entered using read-buffer.")
  108. (defvar buffer-history (get 'buffer-history 'initial-hist) "\
  109. History of all buffer names read with read-buffer.")
  110. (fset 'gmhist-new-read-buffer #[(gnrb-prompt &optional default existing) "½ï    ½ê┬├─ \"Lê┼#ç" [buffer-history-symbol buffer-history-lru-order mapcar buffer-name buffer-list gmhist-read-buffer gnrb-prompt default existing] 4 "\
  111. One arg PROMPT, a string.  Read the name of a buffer and return as a string.
  112. Prompts with PROMPT.
  113. Optional second arg is value to return if user enters an empty line.
  114. If optional third arg REQUIRE-MATCH is non-nil, only existing buffer names are allowed.
  115.  
  116. *** This is the gmhist version ***
  117.  
  118. See variables `buffer-history-symbol' and `buffer-history-lru-order'."])
  119. (fset 'gmhist-new-switch-to-buffer #[(buffer &optional norecord) "└    \n\"ç" [gmhist-old-switch-to-buffer buffer norecord] 3 "\
  120. Select buffer BUFFER in the current window.
  121. BUFFER may be a buffer or a buffer name.
  122. Optional second arg NORECORD non-nil means
  123. do not put this buffer at the front of the list of recently selected ones.
  124.  
  125. WARNING: This is NOT the way to work on another buffer temporarily
  126. within a Lisp program!  Use `set-buffer' instead.  That avoids messing with
  127. the window-buffer correspondences.
  128.  
  129. *** This is the gmhist version ***
  130.  
  131. It adds buffer-history to switch-to-buffer." (byte-code "└┴┬ ├#Cç" [gmhist-new-read-buffer "Switch to buffer: " other-buffer nil] 4)])
  132. (byte-code "└┴!ê└┬!ê├─┼\"ê╞╟Mê╚    ╩╦#ç" [gmhist-overwrite read-buffer switch-to-buffer mapcar #[(fun) "└    ┬\"ç" [gmhist-make-magic fun buffer-history-symbol] 3] (switch-to-buffer-other-window append-to-buffer prepend-to-buffer copy-to-buffer) read-from-minibuffer gmhist-new-read-from-minibuffer define-key ctl-x-map "" gmhist-repeat-complex-command] 4)
  133. (fset 'gmhist-repeat-complex-command #[(arg) "└┬├─#ê┬├╞└#ê╟╚├╔╩╦$!ê┬├─╩#)ç" [t print-escape-newlines put command-history backup arg cursor-end eval read-with-history-in "Redo: " nil lisp] 6 "\
  134. Edit and re-evaluate last complex command, or ARGth from last.
  135. A complex command is one which used the minibuffer.
  136. The command is placed in the minibuffer as a Lisp form for editing.
  137. The result is executed, repeating the command as changed.
  138. If the command has been changed or is not the most recent previous command
  139. it is added to the front of the command history." "p"])
  140.