defun not loaded?

defun not loaded?

[Mike]

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. :(

Re: defun not loaded?

[Mike]

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