How do I make an Emacs-Lisp function available via M-x ?

How do I make an Emacs-Lisp function available via M-x ?

[leonel.gayard]

Hi all,

I've recently started to add some Lisp functions to my .emacs file. For
instance, these two functions change the colors in Emacs, with white
fonts over black background or vice-versa:

;;;###autoload
(defun black-on-white()
    (and
         (set-foreground-color "black")
         (set-background-color "white")))

;;;###autoload
(defun white-on-black()
    (and
         (set-foreground-color "white")
         (set-background-color "black")))

Now, I would like to call these functions by typing M-x white-on-black,
but they simply are not available there. The apropos command (M-x
apropos) acknowledges that they exist, but when I type M-x
black-on-white, all I get is "no match".

Any ideas ?

[]'s
Leonel

Re: How do I make an Emacs-Lisp function available via M-x ?

[Le TeXnicien de Surface]

leonel.gayard@gmail.com écrivait :

> Hi all,
> 
> I've recently started to add some Lisp functions to my .emacs file. For
> instance, these two functions change the colors in Emacs, with white
> fonts over black background or vice-versa:
> 
> ;;;###autoload
> (defun black-on-white()
>     (and
>          (set-foreground-color "black")
>          (set-background-color "white")))
> 
> ;;;###autoload
> (defun white-on-black()
>     (and
>          (set-foreground-color "white")
>          (set-background-color "black")))
> 
> Now, I would like to call these functions by typing M-x white-on-black,
> but they simply are not available there. The apropos command (M-x
> apropos) acknowledges that they exist, but when I type M-x
> black-on-white, all I get is "no match".
> 
> Any ideas ?
Just use 
(interactive)
like this 
(defun white-on-black()
  (interactive)
     (and
          (set-foreground-color "white")
          (set-background-color "black")))
/et/ /voilà/!
Hih.

-- 
Le TeXnicien de Surface

Re: How do I make an Emacs-Lisp function available via M-x ?

[Perry Smith]

[-- Attachment #1.1: Type: text/plain, Size: 1085 bytes --]

On Nov 29, 2006, at 5:58 AM, leonel.gayard@gmail.com wrote:

> Hi all,
>
> I've recently started to add some Lisp functions to my .emacs file.  
> For
> instance, these two functions change the colors in Emacs, with white
> fonts over black background or vice-versa:
>
> ;;;###autoload
> (defun black-on-white()
>     (and
>          (set-foreground-color "black")
>          (set-background-color "white")))
>
> ;;;###autoload
> (defun white-on-black()
>     (and
>          (set-foreground-color "white")
>          (set-background-color "black")))
>
> Now, I would like to call these functions by typing M-x white-on- 
> black,
> but they simply are not available there. The apropos command (M-x
> apropos) acknowledges that they exist, but when I type M-x
> black-on-white, all I get is "no match".
>
> Any ideas ?

Look at the function: interactive

Probably you just need (interactive) but there is a lot to it.

Perry Smith ( pedz@easesoftware.com )
Ease Software, Inc. ( http://www.easesoftware.com )

Low cost SATA Disk Systems for IBMs p5, pSeries, and RS/6000 AIX systems



[-- Attachment #1.2: Type: text/html, Size: 7484 bytes --]

[-- Attachment #2: Type: text/plain, Size: 152 bytes --]

_______________________________________________
help-gnu-emacs mailing list
help-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs