let

Flatman <flatman@swing.be> writes:

(defun my-print-a2ps ()
(interactive)
(let ( (startpoint (point-min)) (endpoint (point-max)) )
(if (and transient-mark-mode mark-active)
(lambda ()

(progn

(sinon, tu définie une fonction sans nom, mais tu ne l'execute pas)

(setq startpoint (region-beginning))
(setq endpoint (region-end))))
(shell-command-on-region (startpoint) (endpoint) "a2ps --output=-

(shell-command-on-region startpoint endpoint "a2ps --output=-

Sinon, tu appelles les fonctions `startpoint' et `endpoint' au lieu
d'utiliser les variables.

--columns=1 --rows=1 --portrait --chars-per-line0 --major=rows
--margin@ --encoding=iso15|ps2pdf14 -|lpr" nil nil)))

Une autre version, fonctionnelle pure, serait

(let* ((use-region (and transient-mark-mode mark-active))
(startpoint (if use-region (region-beginning) (point-min)))
(endpoint (if use-region (region-end) (point-max))))
(...))

--
Matthieu

* Matthieu Moy (2005-10-10) writes:

Flatman <flatman@swing.be> writes:

(defun my-print-a2ps ()
(interactive)
(let ( (startpoint (point-min)) (endpoint (point-max)) )
(if (and transient-mark-mode mark-active)
(lambda ()

(progn

Je trouve

(when (and transient-mark-mode mark-active)
...)

meilleur. (c:

--
Ralf

* Matthieu Moy <MatthieuNOSPAM.Moy@imag.fr.invalid> wrote:
|
| Flatman <flatman@swing.be> writes:
|
| > (defun my-print-a2ps ()
| > (interactive)
| > (let ( (startpoint (point-min)) (endpoint (point-max)) )
| > (if (and transient-mark-mode mark-active)
| > (lambda ()
| (progn
|
| (sinon, tu définie une fonction sans nom, mais tu ne l'execute pas)
|
| > (setq startpoint (region-beginning))
| > (setq endpoint (region-end))))
| > (shell-command-on-region (startpoint) (endpoint) "a2ps --output=-
| (shell-command-on-region startpoint endpoint "a2ps --output=-
|
| Sinon, tu appelles les fonctions `startpoint' et `endpoint' au lieu
| d'utiliser les variables.
|
| > --columns=1 --rows=1 --portrait --chars-per-line0 --major=rows
| > --margin@ --encoding=iso15|ps2pdf14 -|lpr" nil nil)))
|
| Une autre version, fonctionnelle pure, serait
|
| (let* ((use-region (and transient-mark-mode mark-active))
| (startpoint (if use-region (region-beginning) (point-min)))
| (endpoint (if use-region (region-end) (point-max))))
| (...))

Merci,

je vais essayer cela ...

--
Erik

* Life is wonderful with Emacs and Perl *

Matthieu Moy writes:

Flatman <flatman@swing.be> writes:

(defun my-print-a2ps ()
(interactive)
(let ( (startpoint (point-min)) (endpoint (point-max)) )
(if (and transient-mark-mode mark-active)
(lambda ()

(progn

(sinon, tu définie une fonction sans nom, mais tu ne l'execute pas)

(setq startpoint (region-beginning))
(setq endpoint (region-end))))

Ou en l'occurrence :

(if ...
(setq ... ...
... ...))

Ou comme l'a signalé Ralf, utiliser 'when'.

--drkm

Matthieu Moy writes:

Une autre version, fonctionnelle pure, serait

(let* ((use-region (and transient-mark-mode mark-active))
(startpoint (if use-region (region-beginning) (point-min)))
(endpoint (if use-region (region-end) (point-max))))
(...))

« Fonctionnelle pure », en utilisant 'let*' ?-)

--drkm

drkm <usenet.fcaemacs@fgeorges.org> writes:

Matthieu Moy writes:

Une autre version, fonctionnelle pure, serait

(let* ((use-region (and transient-mark-mode mark-active))
(startpoint (if use-region (region-beginning) (point-min)))
(endpoint (if use-region (region-end) (point-max))))
(...))

« Fonctionnelle pure », en utilisant 'let*' ?-)

Ça dépends comment tu vois les choses. Si tu vois let* comme une suite
d'affectations, c'est plus du tout du fonctionnel pure. Mais tu peux
aussi le voir comme une suite de let imbriqués:

(let ((use-region (and transient-mark-mode mark-active)))
(let ((startpoint (if use-region (region-beginning) (point-min)))
(endpoint (if use-region (region-end) (point-max))))
...))

A ce moment là, le let* n'est qu'un sucre syntaxique pour une version
fonctionnelle pure. Après, on pourrait discuter longtemps sur la
définition exacte de fonctionnel pur et comment l'appliquer ici. Je
suppose que si on est un peu puriste, on doit pouvoir me donner tort.

--
Matthieu