help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: defun not loaded?


From: Mike
Subject: Re: defun not loaded?
Date: Sun, 14 Nov 2004 17:14:57 -0000
User-agent: slrn/0.9.7.4 (Linux)

In article <10pf467nsdo2o45@corp.supernews.com>, Mike wrote:
> I'm re-learning elisp and am working on a function to help
> some cow-orkers. The code loads the (defvar...) but not
> the (defun...). Why is this? I'm using emacs 21 on RHFC2.
> 
> ;;; global variables that control how wincap works
> (defvar *window-capture-file* "~/.wincap.log"
> "Filename to capture window contents to.")
> (defvar *window-capture-order* 'cron
> "Write new items to the *window-capture-file* in 'cron order (the default)
> or in 'reverse-cron order")
> (defvar *window-capture-lines-gap* 2
> "How many blank lines between captures?")
> (defvar *window-capture-insert-lines* nil
> "Place lines of ='s in the gap between captures if non-nil.")
> (defvar *window-capture-line-string* 
> "============================================="
> "The line string to insert if *window-capture-insert-lines* is non-nil.")
> (defvar *window-capture-insert-timestamp* nil
> "Place a timestamp at the beginning of each capture if non-nil.")
> (defvar *window-capture-save-often* nil
> "If non-nil, save the capture buffer with each capture.")
> 
> ;;; the wincap function itself
> (defun wincap (&optional file)
> "When invoked copy the contents of the current buffer from (window-min)
> through (window-max) to the file named by *window-capture-file*. The
> optional argument to this function 'file' can be used to send the capture
> to a different file."
> (let* ((fn (or file *window-capture-file*))
> (bufname (concat "*wincap: " fn "*"))
> (buf (get-file-buffer fn))
> (text (buffer-substring (window-min) (window-max))))
> ....
> )))
> 
> Pasting into vi messed up my formatting. :(

Found it, I didn't have a (interactive) after my docstring.

Mike


reply via email to

[Prev in Thread] Current Thread [Next in Thread]