* Re: Getting Emacs to start in fullscreen
[not found] <mailman.534.1089563158.22971.help-gnu-emacs@gnu.org>
@ 2004-07-13 3:39 ` Bruce Ingalls
2004-07-15 0:59 ` Beginner lisp problem exits funnel
0 siblings, 1 reply; 4+ messages in thread
From: Bruce Ingalls @ 2004-07-13 3:39 UTC (permalink / raw)
ismail dönmez wrote:
> Hi all,
>
> is there a config option that I can add in ~/.emacs so when I do start
> emacs it will automatically start in fullscreen ?
As posted recently in comp.emacs, there's code in EMacro at
<url: http://emacro.sf.net > which maximizes the height of Emacs.
^ permalink raw reply [flat|nested] 4+ messages in thread
* Beginner lisp problem
2004-07-13 3:39 ` Getting Emacs to start in fullscreen Bruce Ingalls
@ 2004-07-15 0:59 ` exits funnel
0 siblings, 0 replies; 4+ messages in thread
From: exits funnel @ 2004-07-15 0:59 UTC (permalink / raw)
Hello,
I'm just starting to write my first lisp and I've got
a quick question. I've added the following to my
.emacs:
(defun my-debug-mode-hook (ar)
(message "In Hook")
)
(add-hook 'jde-dbs-debugger-hook 'my-debug-mode-hook)
and I see my message printed as I'd expect. The hook
is called when the debugger starts and when it quits
and the value of the passed argument indicates which
is the case. I'd like to have separate customizations
for each case so I modified my hook as follows:
(defun my-debug-mode-hook (ar)
(if (ar)
(message "Exits: Debugger Starting")
(message "Exits: Debugger Qutting")
)
)
(add-hook 'jde-dbs-debugger-hook 'my-debug-mode-hook)
Unfortunately, now I get the following error when the
hook is called:
Debugger entered--Lisp error: (void-function ar)
(ar)
(if (ar) (message "Exits: Debugger Starting")
(message "Exits: Debugger Qutting"))
my-debug-mode-hook(t)
run-hook-with-args(my-debug-mode-hook t)
jde-dbs-debugger([object jde-dbs-debugger "JDEbug"
"JDEbug" "*JDEbug*" unbound unbound nil unbound nil
unbound nil unbound unbound unbound nil])
apply(jde-dbs-debugger [object jde-dbs-debugger
"JDEbug" "JDEbug" "*JDEbug*" unbound unbound nil
unbound nil unbound nil unbound unbound unbound nil])
(setq rval (apply (car ...) newargs))
(let ((scoped-class ...) (eieio-generic-call-key
...)) (setq found t) (setq rval (apply ... newargs)))
(if (car lambdas) (let (... ...) (setq found t)
(setq rval ...)))
(while lambdas (if (car lambdas) (let ... ... ...))
(setq lambdas (cdr lambdas) keys (cdr keys)))
(let ((rval nil) (found nil)) (while lambdas (if ...
...) (setq lambdas ... keys ...)) (if (not found) (if
... ... ...)) rval)
(let ((newargs nil) (mclass nil) (lambdas nil)
(tlambdas nil) (keys nil) (static nil)
(eieio-generic-call-methodname method)
(eieio-generic-call-arglst args) (firstarg nil)) (setq
newargs args firstarg (car newargs)) (if (and ... ...
... ...) (load ...)) (cond (... ...) (... ...)) (if
static (progn ... ...) (setq tlambdas ...) (setq
lambdas ... keys ...) (setq tlambdas ...) (setq
lambdas ... keys ...) (setq tlambdas ...) (setq
lambdas ... keys ...)) (let (... ...) (while lambdas
... ...) (if ... ...) rval))
eieio-generic-call(jde-dbs-debugger-start ([object
jde-dbs-debugger "JDEbug" "JDEbug" "*JDEbug*" unbound
unbound nil unbound nil unbound nil unbound unbound
unbound nil]))
jde-dbs-debugger-start([object jde-dbs-debugger
"JDEbug" "JDEbug" "*JDEbug*" unbound unbound nil
unbound nil unbound nil unbound unbound unbound nil])
jde-bug-debug-app()
jde-debug()
call-interactively(jde-debug)
I'm sure my mistake is obvious to anyone who knows
some lisp but I can't get it sorted out and would
appreciate a jumpstart. Thanks in advance!
-exits
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Beginner lisp problem
[not found] <mailman.1014.1089853356.22971.help-gnu-emacs@gnu.org>
@ 2004-07-15 1:23 ` David Kastrup
2004-07-15 2:21 ` exits funnel
0 siblings, 1 reply; 4+ messages in thread
From: David Kastrup @ 2004-07-15 1:23 UTC (permalink / raw)
exits funnel <exitsfunnel@yahoo.com> writes:
> I'm just starting to write my first lisp and I've got
> a quick question. I've added the following to my
> .emacs:
>
> (defun my-debug-mode-hook (ar)
> (message "In Hook")
> )
> (add-hook 'jde-dbs-debugger-hook 'my-debug-mode-hook)
>
> and I see my message printed as I'd expect. The hook
> is called when the debugger starts and when it quits
> and the value of the passed argument indicates which
> is the case. I'd like to have separate customizations
> for each case so I modified my hook as follows:
>
> (defun my-debug-mode-hook (ar)
> (if (ar)
> (message "Exits: Debugger Starting")
> (message "Exits: Debugger Qutting")
> )
> )
`ar' is not a function, so you should not call it. Use
(if ar
(message ...
instead.
--
David Kastrup, Kriemhildstr. 15, 44793 Bochum
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Beginner lisp problem
2004-07-15 1:23 ` David Kastrup
@ 2004-07-15 2:21 ` exits funnel
0 siblings, 0 replies; 4+ messages in thread
From: exits funnel @ 2004-07-15 2:21 UTC (permalink / raw)
> `ar' is not a function, so you should not call it.
> Use
>
> (if ar
> (message ...
>
> instead.
Thanks :)
__________________________________
Do you Yahoo!?
Yahoo! Mail - 50x more storage than other providers!
http://promotions.yahoo.com/new_mail
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2004-07-15 2:21 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
[not found] <mailman.534.1089563158.22971.help-gnu-emacs@gnu.org>
2004-07-13 3:39 ` Getting Emacs to start in fullscreen Bruce Ingalls
2004-07-15 0:59 ` Beginner lisp problem exits funnel
[not found] <mailman.1014.1089853356.22971.help-gnu-emacs@gnu.org>
2004-07-15 1:23 ` David Kastrup
2004-07-15 2:21 ` exits funnel
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.