unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
From: Kevin Rodgers <kevinr@ihs.com>
Subject: Re: Adding to ps-print-hook problems
Date: Mon, 16 Sep 2002 10:37:34 -0600	[thread overview]
Message-ID: <3D8608CE.9000802@ihs.com> (raw)
In-Reply-To: kCmh9.61164$xm.12707671@twister.nyroc.rr.com

Jeff Rancier wrote:

> Hi all.  I wanted to create a simple function to prompt me for the n-up
> number of pages to print when I run the function,
> ps-print-buffer-with-faces.  Here's what I came up with:
> 
> (defun jbr-ps-print-n-up-hook (number-of-pages)
>   (interactive "nN-up number of pages: ")
>   (setq ps-n-up-printing number-of-pages))
> 
> (add-hook 'ps-print-hook 'jbr-ps-print-n-up-hook)
> 
> I thought that was pretty straight forward.  When I select that from the
> menu-bar, I get the following in my *Messages* buffer:
> 
> Debugger entered--Lisp error: (wrong-number-of-arguments (lambda
> (number-of-pages) (interactive "nN-up number of pages: ") (setq
> ps-n-up-printing number-of-pages)) 0)
>   jbr-ps-print-n-up-hook()
>   run-hooks(ps-print-hook)
>   ps-spool-with-faces(1 2947 nil)
>   ps-print-with-faces(1 2947 nil)
>   ps-print-buffer-with-faces(nil)
> * call-interactively(ps-print-buffer-with-faces)
> 
> Is that the wrong-number-of-arguments to run-hooks?  And if so, is that a
> bug in ps-print?  Or am I incorrectly writing my hook,
> jbr-ps-print-n-up-hook?  I am simply calling ps-print-buffer-with-faces()
> incorrectly, now that it is interactive?


Hook functions are always called with no arguments, but your function requires

one argument.  Just make it optional:

(defun jbr-ps-print-n-up-hook (optional number-of-pages)
   ...)

-- 
Kevin Rodgers <kevinr@ihs.com>

  reply	other threads:[~2002-09-16 16:37 UTC|newest]

Thread overview: 6+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2002-09-16 15:17 Adding to ps-print-hook problems Jeff Rancier
2002-09-16 16:37 ` Kevin Rodgers [this message]
2002-09-16 17:29   ` Jeff Rancier
2002-09-16 19:39     ` Kai Großjohann
2002-09-17 11:33 ` Klaus Berndl
2002-09-17 11:51   ` Marco Lonsing

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=3D8608CE.9000802@ihs.com \
    --to=kevinr@ihs.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).