
(defconst gmhist-version "$Id: gmhist.el,v 4.19 1991/09/20 13:20:58 sk RelBeta $")

(provide (quote gmhist))

(defvar gmhist-emacs-19-p (equal (substring emacs-version 0 2) "19"))

(defvar gmhist-default-format "[%s] " "\
Format used by gmhist to indicate the presence of a default value.
Set this to \"(default %s) \" to get the standard format.")

(defvar gmhist-search-history nil "\
History of history searches.")

(defun read-with-history-in (GMHIST-SYMBOL rwhi-prompt &optional GMHIST-INITIAL GMHIST-READ) "\
Read a string, maintaining minibuffer history across calls in GMHIST-SYMBOL,
  prompting with PROMPT, with optional GMHIST-INITIAL as initial contents.
If optional fourth arg GMHIST-READ is non-nil, then interpret the
  result as a lisp object and return that object.
See variable gmhist-map for history commands available during edit.
Example:
    (defun foo-command (cmd)
      (interactive (list (read-with-history-in 'foo-history \"Foo: \" )))
      (message \"Fooing %s...\" cmd))

See function gmhist-make-magic on how to give an existing function
history.

These properties (see function put) of GMHIST-SYMBOL are supported:

cursor-end    Put cursor at end of a newly retrieved history line.
cursor-pos    A regexp to put the cursor on.
keep-dups     If t, duplicate commands are remembered, too.
initial-hist  Initial value of the history list.
hist-ignore   Regexp of commands that are not to be added to the history.
backup	      If t, backup in the history list (as if user had typed
	      M-p as first thing).  Can also be an integer to backup
	      more than one history item.
default       An empty string as input will default to the last
	      command (whether the last command was added to the
	      history or not).  The default is stored in this
	      property, thus its initial value is the first default.
dangerous     Commands matching this regexp will never be the default.
no-default    If you don't want defaults at all, set this to t.

Use the following only if you know what you are doing:

hist-function Name of a function to call instead of doing normal
              history processing.  read-with-history-in becomes
              effectively an alias for this function.

These will be flushed soon (use let-binding minibuffer-completion-table
etc. instead):

hist-map      Minibuffer key map to use instead of gmhist-map.
completion-table
completion-predicate
	      Used in completion on history strings, when the hist-map
	      property has gmhist-completion-map as value.
	      The special value `t' for the table means to use the
	      current history list.
	      Thus, to get completion on history items just do:
		(put 'foo-history 'hist-map gmhist-completion-map)
		(put 'foo-history 'completion-table t)

Hooks:
  gmhist-after-insert-hook is run after a history item is
    inserted into the minibuffer.
  gmhist-load-hook is run after this package is loaded.
  gmhist-hook is run as first thing inside read-with-history-in.
  gmhist-before-move-hook is run before history motion takes place.
    Function gmhist-remember-zero is a candidate for that hook.
" (byte-code "МН!€	АNО!ѓ П	
%‚V Р	!†# 		СNL€	J	ТNИ=ѓ; УФK\"‚= )	ХN		
Ц
	ЧN†S $,)‡" [hist-function GMHIST-SYMBOL rwhi-prompt GMHIST-INITIAL GMHIST-READ history minibuffer-completion-table table t minibuffer-completion-predicate minibuffer-history-symbol gmhist-map run-hooks gmhist-hook fboundp funcall boundp initial-hist completion-table mapcar list completion-predicate gmhist-new-read-from-minibuffer hist-map] 11))

(defun completing-read-with-history-in (crwhi-hist-sym &rest args) "\
Like completing-read, but with additional first arg HISTORY-SYMBOL." (byte-code "	ГД
\")‡" [minibuffer-history-symbol crwhi-hist-sym args apply gmhist-completing-read] 3))

(defun gmhist-completing-read (crwhi-prompt table &optional predicate mustmatch initial) "\
Like completing-read, but see minibuffer-history-symbol." (byte-code "	В=ѓ
 Г‚ ВМ	Н	ѓ! 
‚# !#+‡" [minibuffer-completion-confirm mustmatch t nil minibuffer-completion-table table minibuffer-completion-predicate predicate crwhi-prompt initial gmhist-must-match-map gmhist-completion-map gmhist-new-read-from-minibuffer gmhist-lookup-keymap] 5))

(defun read-file-name-with-history-in (crwhi-hist-sym &rest args) "\
Like read-file-name, but with additional first arg HISTORY-SYMBOL." (byte-code "	ГД
\")‡" [file-history-symbol crwhi-hist-sym args apply gmhist-read-file-name] 3))

(defvar file-history-symbol (quote file-history) "\
*If non-nil, it is the name (a symbol) of a variable on which to cons
filenames entered in the minibuffer.
You may let-bind this to another symbol around calls to read-file-name.")

(defun gmhist-read-file-name (grfn-prompt &optional dir default mustmatch initial) "\
Args: PROMPT &optional DIR DEFAULT MUSTMATCH INITIAL.
Read file name, maintaining history in file-history-symbol, prompting
  with PROMPT, with optional INITIAL input and completing in directory DIR. 
Value is not expanded!  You must call expand-file-name yourself.
Default name to arg DEFAULT if user enters a null string (or, if
  INITIAL was given, leaves it unchanged).
MUSTMATCH non-nil means require existing file's name.
 Non-nil and non-t means also require confirmation after completion.
DIR defaults to current buffer's default-directory.

This function differs from read-file-name in providing a history of
filenames bound to file-history-symbol and (for pre-Emacs 19) in
providing an argument INITIAL not present in Emacs 18's read-file-name." (byte-code "† 	
† ‰€… ТУЕ#€ТФЕ#€ѓ- Х!‰‚8 …8 Х!‰€	Е=ѓD К‚E ЕЦЧШ	ѓ` ‚b !#;…r Щ\"†Ђ ?…Ђ ЪG!…„ 
†‹ Ы!-‡" [dir default-directory default buffer-file-name file-history-symbol t initial insert-default-directory minibuffer-completion-confirm mustmatch nil minibuffer-completion-table minibuffer-completion-predicate minibuffer-history-symbol val grfn-prompt gmhist-filename-must-match-map gmhist-filename-completion-map put cursor-end no-default gmhist-unexpand-home read-file-name-internal gmhist-new-read-from-minibuffer gmhist-lookup-keymap string= zerop substitute-in-file-name] 10))

(defun gmhist-unexpand-home (file) (byte-code "ДЕ!GG…) ;…) 
	Y…) ЖЗ	O\"…) И	SH=ѓ5 Е	ЙOP‚6 +‡" [home home-len file-len file expand-file-name "~/" string= 0 47 nil] 6))

(defun read-buffer-with-history-in (rbwhi-hist-sym &rest args) "\
Like read-buffer, but with additional first arg HISTORY-SYMBOL." (byte-code "	ГД
\")‡" [buffer-history-symbol rbwhi-hist-sym args apply gmhist-read-buffer] 3))

(defvar buffer-history-symbol (quote buffer-history) "\
*If non-nil, it is the name (a symbol) of a variable on which to cons
buffer names entered in the minibuffer.")

(defun gmhist-read-buffer (grb-prompt &optional default existing) "\
Read a buffer name, maintaining history in buffer-history-symbol and return as string.
Args PROMPT &optional DEFAULT EXISTING.
Optional arg EXISTING means an existing buffer must be entered." (byte-code "Ж!… З!‰€	… И	А#€	ЙКЛКЗМ \"\"Н$ОП\"ѓ1 ‚2 *‡" [default buffer-history-symbol minibuffer-history-symbol name grb-prompt existing bufferp buffer-name put gmhist-completing-read mapcar list buffer-list (lambda (elt) (byte-code "Б@!‡" [elt get-buffer] 2)) equal ""] 11))

(defvar minibuffer-history-symbol (quote minibuffer-history) "\
*If non-nil, it is the name (a symbol) of a variable on which to cons
the string entered in the minibuffer.
Input is stored as string, even for e.g. `read-buffer'.")

(defvar minibuffer-history nil "\
List of strings entered using the minibuffer, most recent first.")

(put (quote minibuffer-history) (quote no-default) t)

(defvar minibuffer-history-read-only nil "\
If non-nil, nothing will be stored on `minibuffer-history-symbol'.
History motions commands are still available in the minibuffer.")

(or (fboundp (quote gmhist-old-read-from-minibuffer)) (fset (quote gmhist-old-read-from-minibuffer) (symbol-function (quote read-from-minibuffer))))

(defun gmhist-new-read-from-minibuffer (gnrfm-prompt &optional initial-contents keymap read position) "\
Read a string from the minibuffer, prompting with string PROMPT.
If optional second arg INITIAL-CONTENTS is non-nil, it is a string
  to be inserted into the minibuffer before reading input.
Third arg KEYMAP is a keymap to use whilst reading;
  if omitted or nil, the default is `minibuffer-local-map'.
If fourth arg READ is non-nil, then interpret the result as a lisp object
  and return that object:
  in other words, do `(car (read-from-string INPUT-STRING))'
Fifth arg POSITION, if non-nil, is where to put point
  in the minibuffer after inserting INITIAL-CONTENTS.

The ambient value of `minibuffer-history-symbol' (q.v.) is used and set.

*** This is the gmhist version.***" (byte-code "?ѓ 	ѓ З
%‚ З
$‚% И
%‡" [minibuffer-history-symbol gmhist-emacs-19-p gnrfm-prompt initial-contents keymap read position gmhist-old-read-from-minibuffer gmhist-read-from-minibuffer] 8))

(defun gmhist-read-from-minibuffer (grfm-prompt &optional initial-contents keymap read position) (byte-code "† 	‰€
† Ц!† ЧNL€ШJ	†) ИNѓ4 Л‚7 КN
МNѓG Л‚J НNѓ] Щ\"P‚_ †h ?ѓo ‚Є ШЪ!…y †} Ы]G^‰€Ь‰!ѓ“ Л‚Є S8	ѓ§ Э!‚© )ЛѓА Ю$‚З Ю#‰€†Ы Я
#‰€
ѓд Л‚Л…аNѓц Л‚э б@\"†вN‰;…гд@!\"†BL)€	ѓ,е!@‚..
‡" [keymap minibuffer-local-map minibuffer-history-read-only minibuffer-history-symbol minibuffer-history-position minibuffer-initial-contents initial-contents history no-default read dangerous nil backup default the-prompt grfm-prompt gmhist-default-format the-initial backup-input command position ignore boundp initial-hist 0 format integerp 1 zerop prin1-to-string gmhist-old-read-from-minibuffer gmhist-handle-default keep-dups equal hist-ignore string-match gmhist-stringify read-from-string] 14))

(defun gmhist-handle-default (command default dangerous) (byte-code "ДЕ\"… 	… 	‰€
;… Ж
З!\"†\" ИБ#€‡" [command default dangerous minibuffer-history-symbol string= "" string-match gmhist-stringify put] 7))

(or (fboundp (quote gmhist-define-keys)) (defun gmhist-define-keys (map) "Bind the standard history commands in MAP, a key map.

When gmhist is loaded, this function is only defined if you have not
already defined it, so that you can customize it without worrying
about load order." (define-key map "р" (quote gmhist-previous)) (define-key map "о" (quote gmhist-next)) (define-key map "т" (quote gmhist-search-backward)) (define-key map "у" (quote gmhist-search-forward)) (define-key map "з" (quote gmhist-toggle)) (define-key map "З" (quote gmhist-switch-history)) (define-key map "ї" (quote gmhist-show))))

(defun gmhist-lookup-keymap (map) (byte-code "Б!ѓ
 ‚ ВJ!‡" [map keymapp gmhist-lookup-keymap] 3))

(defvar gmhist-map nil "\
Key map for generic minibuffer history.
\\<gmhist-map>\\[gmhist-previous], \\[gmhist-next], \\[gmhist-beginning], \\[gmhist-end] move through, \\[gmhist-search-backward] and \\[gmhist-search-forward] search,
\\[gmhist-show] displays the history:
\\{gmhist-map}")

(if gmhist-map nil (setq gmhist-map (copy-keymap minibuffer-local-map)) (gmhist-define-keys gmhist-map))

(defvar gmhist-completion-map nil "\
Key map for generic minibuffer history with completion, see gmhist-map.")

(if gmhist-completion-map nil (setq gmhist-completion-map (copy-keymap minibuffer-local-completion-map)) (gmhist-define-keys gmhist-completion-map))

(defvar gmhist-must-match-map nil "\
Key map for generic minibuffer history with completion that must match,
see gmhist-map.")

(if gmhist-must-match-map nil (setq gmhist-must-match-map (copy-keymap minibuffer-local-must-match-map)) (gmhist-define-keys gmhist-must-match-map))

(defvar gmhist-filename-completion-map (quote gmhist-completion-map) "\
A keymap (or a symbol pointing to one) to use in filename
completion that need not match.  Defaults to 'gmhist-completion-map.")

(defvar gmhist-filename-must-match-map (quote gmhist-must-match-map) "\
A keymap (or a symbol pointing to one) to use in filename
completion that must match.  Defaults to 'gmhist-must-match-map.")

(defun gmhist-goto (n) (byte-code "ИЙ!€К €	‰€	ЛWѓ В‚` 	ЛUѓ# †  М‚( 	SJ8‰€Н!c€ИО!€ПNѓ> d‚? eb€РN;…_ mѓY СВЗ#‚_ ТВЗ#)‡" [minibuffer-history-position n nil elt minibuffer-initial-contents minibuffer-history-symbol pos t run-hooks gmhist-before-move-hook erase-buffer 0 "" gmhist-stringify gmhist-after-insert-hook cursor-end cursor-pos re-search-backward re-search-forward] 9))

(defun gmhist-beginning nil "\
Go to the oldest command in the history." (interactive) (byte-code "Б€ВJG!‡" [minibuffer-history-symbol nil gmhist-goto] 2))

(defun gmhist-end nil "\
Position before the most recent command in the history." (interactive) (byte-code "А€БВ!‡" [nil gmhist-goto 0] 2))

(defun gmhist-toggle (&optional n) "\
If at end of history, move to beginning, else move to end.
Prefix arg is history position to go to." (interactive "P") (byte-code "В€ѓ ГД!!‚ Е	Uѓ Ж ‚ З ‡" [n minibuffer-history-position nil gmhist-goto prefix-numeric-value 0 gmhist-beginning gmhist-end] 5))

(defun gmhist-switch-history (new-history) "\
Switch to a different history." (interactive (byte-code "БГДВВБ$C)‡" [enable-recursive-minibuffers t nil read-from-minibuffer "Switch to history: "] 5)) (byte-code "В€Ж‰‡" [enable-recursive-minibuffers t nil minibuffer-history-symbol new-history minibuffer-history-position 0] 2))

(defun gmhist-next (n) "\
Go to next history position." (interactive "p") (byte-code "Д€Е	
Z]JG^	Uѓ$ ЖЗЕ	Uѓ И‚ Й#‚' К!)‡" [narg minibuffer-history-position n minibuffer-history-symbol nil 0 error "No %s item in %s" "following" "preceding" gmhist-goto] 4))

(defun gmhist-previous (n) "\
Go to previous history position." (interactive "p") (byte-code "Б€В[!‡" [n nil gmhist-next] 2))

(defun gmhist-search-backward (regexp &optional forward) "\
Search backward in the history list for REGEXP." (interactive (byte-code "БВГД\"C)‡" [enable-recursive-minibuffers t read-with-history-in gmhist-search-history "History search (regexp): "] 3)) (byte-code "Л€Лѓ М‚ Н\\JG	ѓ' ОV‚+ 	X…< П
РS8!\"‰?…H \\‰€‚ €
†T СТ
#€У!-‡" [enable-recursive-minibuffers t found direction forward pos minibuffer-history-position history minibuffer-history-symbol len regexp nil -1 1 0 string-match gmhist-stringify error "%s not found in %s" gmhist-goto] 6))

(defun gmhist-search-forward (regexp) "\
Search forward in the history list for REGEXP." (interactive (byte-code "БВГД\"C)‡" [enable-recursive-minibuffers t read-with-history-in gmhist-search-history "History search forward (regexp): "] 3)) (byte-code "Г€Д
Б\"‡" [enable-recursive-minibuffers t regexp nil gmhist-search-backward] 3))

(defun gmhist-stringify (elt) (byte-code ";ѓ	 ‚ Б!‡" [elt prin1-to-string] 2))

(defun gmhist-show nil "\
Show the history list in another buffer.
Use \\[scroll-other-window] to scroll, with negative arg to scroll back." (interactive) (byte-code "В€ГДЕ	!ДQђЖЗ	J\"‘)‡" [count minibuffer-history-symbol nil 0 "*" symbol-name mapcar (lambda (x) (byte-code "ГДЕT‰	=ѓ Ж‚ З
$!‡" [count minibuffer-history-position x princ format "%2s%2d: %s
" "> " "  "] 6))] 5))

(defun gmhist-remember-zero nil "\
Put this function on gmhist-before-move-hook to make gmhist
remember the initial value even after you edited it:

    (setq gmhist-before-move-hook 'gmhist-remember-zero)" (byte-code "В!…
 Г ‰‡" [minibuffer-history-position minibuffer-initial-contents zerop buffer-string] 4))

(defun gmhist-copy-function (fun) (byte-code "ЕЕЕK‰€:ѓ6 …/ @AЖ
!ѓ& З
!‚' 
	B‰€‚ €И	!‚M ЙЕ\"‰€КЛМ	\"ЗМH!\"€НО	\"+‡" [old new elt fun t nil sequencep copy-sequence nreverse append setcar nthcdr 5 apply make-byte-code] 10))

(defun gmhist-check-autoload (fun) "\
If FUN is an autoload, load its definition." (byte-code "	K<… В@=… ГД8!)‡" [lis fun autoload load 1] 3))

(defun gmhist-replace-spec (fun new-spec &optional copy-first) "\
Replace the interactive specification of FUN with NEW-SPEC.
FUN must be a symbol with a function definition.
Autoload functions are taken care of by loading the appropriate file first.
If FUN is a pure storage function (one dumped into Emacs) it is first
  copied onto itself, because pure storage cannot be modified.
  Optional non-nil third arg COPY-FIRST is used internally for this.
The old spec is put on FUN's gmhist-old-interactive-spec property.  
  That property is never overwritten by this function.  It is used by
  function gmhist-remove-magic." (byte-code "З!€	… И!M€Й!
:…; КЛМ
8!=ѓ' М
8‚; КЛН
8!=ѓ7 Н
8‚; ОП\"ѓF Р8‚I С!ТN†U УТ#€	ѓѓ 
:ѓg ФC\"‚Ђ Х
Ж\"‰€ЦЧШ
\"\"€ЩЪ
\"‰€
M‚‡ ЫЬЭЏ+‡" [fun copy-first flambda fint old-spec new-spec nil gmhist-check-autoload gmhist-copy-function gmhist-symbol-function interactive car-safe 2 3 error "%s is not interactive" 1 gmhist-spec gmhist-old-interactive-spec put setcdr append setcar nthcdr 5 apply make-byte-code err (byte-code "В	C\"‡" [fint new-spec setcdr] 3) ((error (byte-code "Г	В#‡" [fun new-spec t gmhist-replace-spec] 4)))] 16))

(defun gmhist-spec (fun) "\
Get the current interactive specification for FUN (a symbol).
Signal an error if FUN is not interactive." (byte-code "Д	!Е:ѓ# ЖЗAA\"‰€
† ИЙ	\"€К
8‚& ЛH*‡" [flambda fun fint t gmhist-symbol-function nil assq interactive error "Cannot get spec of a non-interactive command: %s!" 1 5] 5))

(defun gmhist-symbol-function (fun) (byte-code "	K9ѓ В!‚ )‡" [flambda fun gmhist-symbol-function] 2))

(defun gmhist-split (pat str &optional limit) "\
Splitting on regexp PAT, turn string STR into a list of substrings.
Optional third arg LIMIT (>= 1) is a limit to the length of the
resulting list.
Thus, if SEP is a regexp that only matches itself,

   (mapconcat 'identity (gmhist-split SEP STRING) SEP)

is always equal to STRING." (byte-code "З	
\"
ИOCЙ… КИ!…I Л!?†% W…- З	
#…I МИ!T
OBКИ!‰€‚ €Л!?†V W…Z …e 
НOB‰€О!,‡" [start pat str result count end limit string-match 0 1 match-end integerp match-beginning nil nreverse] 10))

(defun gmhist-interactive (spec hist) "\
Interpret SPEC, an interactive string, like call-interactively
would, only with minibuffer history in HIST (a symbol).

If the value of HIST is another symbol (which can never happen if
history lists are already stored on it), this symbol is taken instead
to facilitate dynamic indirections.

Currently recognized key letters are:

    a b B c C d D k m N n s S x X f F r p P v

and initial `*'.

Use it inside interactive like this

    (interactive (gmhist-interactive \"sPrompt: \\nP\" 'foo-history))

or even like this:

    (interactive
     (gmhist-interactive \"sReplace: \\nsReplace %s with: \" 'replace-history))
" (byte-code ";†	 СТ\"€GУV… ФУH=…\" Х €ЦЙO‰€Ч	!…3 	J9…3 	J??…: 	J‰€ШЩЪЫ\"\"ЙЙЙЙЙЙЬЙ
\"‰€
…Ѓ
@
AЙ
@AЭЮKЯ!#‰€а=ѓ” бв	гМЙ&!‰‚rд=ѓЁ е	ж М$‰‚rз=ѓј е	ж Й$‰‚rи=ѓО й!€r‰‚rк=ѓз бв	лМЙ&!‰‚rм=ѓф `‰‚rн=ѓ	о	Йп%‰‚rр=ѓо	ЙЙп%‰‚rс=ѓ.о	\"‰‚rт=ѓJуфх\"ѓBЙ‚D!‰‚rц=ѓ^ч †YСш!‰‚rщ=ѓЉѓsъ!‰‚‡ыь	ЙМ$‰!?…‡Й€‚s‚rэ=ѓЁыь	ЙМ$‰!?…ҐЙ€‚‘‚rю=ѓёъ!‰‚rя=ѓЖ‰‚rЃ@ =ѓЙЙч †ЭСш!`^ч †йСш!`]‰€ЃA D\"М‰
*‚rЃB =ѓь	\"‰‚rЃC =ѓ*ь	ЙМ$‰‚rЃD =ѓEв	ЃE МЙ&‰‚rЃF >ѓkь	ЙМ$‰€ЃG =…hЃH !‰‚rСЃI \"€
†}B‰€‚Y €Я!.‡" [spec hist spec-list cur-arg args-so-far elt char prompt xprompt nil special obarray t default-directory current-prefix-arg region-min region-max error "gmhist-interactive: not a string %s" 0 42 barf-if-buffer-read-only 1 boundp mapcar (lambda (x) (if (equal "" x) nil (cons (aref x 0) (substring x 1)))) gmhist-split "
" delq apply format reverse 97 intern completing-read-with-history-in fboundp 98 read-buffer-with-history-in other-buffer 66 99 message 67 commandp 100 68 read-file-name-with-history-in confirm 102 70 107 read-key-sequence equal "" 109 mark "The mark is not set now" 78 prefix-numeric-value integerp read-with-history-in 110 112 80 114 append 115 83 118 user-variable-p (120 88) 88 eval "Invalid control letter `%c' in gmhist-interactive"] 46))

(defun gmhist-new-spec (fun &optional hist no-error) "\
Return a new interactive specification for FUN, suitable for use
with setcdr in function gmhist-replace-spec.
Use symbol HIST to store the history.  HIST defaults to `FUN-history'.
The returned spec does the same as the old one, only with history in HIST.
 
If FUN is an autoload object, its file is loaded first.

See function gmhist-interactive for a list of recognized interactive
keys letters.

Unless optional third arg NO-ERROR is given, signals an error if FUN's
interactive string contains unknown key letters or has no interactive string.
With NO-ERROR, it returns nil." (byte-code "† ЕЖ	!ЗP!‰€И	!€Й	!
;ѓ$ К
ЛDE‚1 ѓ, Д‚1 МН	
#)‡" [hist fun spec no-error nil intern symbol-name "-history" gmhist-check-autoload gmhist-spec gmhist-interactive quote error "Can't gmhistify %s's spec: %s"] 8))

(defun gmhist-make-magic (fun &optional hist) "\
Make FUN magically maintain minibuffer history in symbol HIST.
HIST defaults to `FUN-history'.
This works by modifying the interactive specification.  See also
  function gmhist-replace-spec.
The magic goes away when you call gmhist-remove-magic on FUN." (interactive "CPut gmhist magic on command: ") (byte-code "Д€Е	
Г#ѓ Ж	\"‚( ЗИ	\"€Й	!€Ж	Е	
\"\"€ЗК	\")‡" [new-spec fun hist t nil gmhist-new-spec gmhist-replace-spec message "Another attempt to put magic on %s..." gmhist-remove-magic "Another attempt to put magic on %s...done."] 9))

(defun gmhist-remove-magic (fun) "\
Remove the magic that gmhist-make-magic put on FUN,
restoring the old interactive spec." (interactive "CRemove gmhist magic from command: ") (byte-code "Б€ВГN† ДЕ\"\"‡" [fun nil gmhist-replace-spec gmhist-old-interactive-spec error "Can't find %s's old interactive spec!"] 5))

(gmhist-make-magic (quote gmhist-make-magic) (quote gmhist-make-magic-history))

(gmhist-make-magic (quote gmhist-remove-magic) (quote gmhist-make-magic-history))

(run-hooks (quote gmhist-load-hook))