bug#11241: 24.1.50; emacs-lock is ill uncompiled (lexical binding problem?)

[Michael Heerdegen]

Hello,

steps to reproduce:

1. emacs -Q
2. load emacs-lock.el  (the source, not the compiled file)
3. In any buffer: M-x emacs-lock-mode

==>

Debugger entered--Lisp error: (void-variable arg)
  (emacs-lock--set-mode mode arg)
  (lambda (mode) (emacs-lock--set-mode mode arg))(t)
  (let ((last-message (current-message))) ((lambda (mode) (emacs-lock--set-mode 
mode arg)) (if (eq arg (quote toggle)) (not emacs-lock-mode) (> 
(prefix-numeric-value arg) 0))) (when emacs-lock-mode (setq 
emacs-lock--old-mode emacs-lock-mode) (setq emacs-lock--try-unlocking (and (if 
(eq emacs-lock-unlockable-modes t) (emacs-lock-live-process-p (current-buffer)) 
(assq major-mode emacs-lock-unlockable-modes)) t))) (run-hooks (quote 
emacs-lock-mode-hook) (if emacs-lock-mode (quote emacs-lock-mode-on-hook) 
(quote emacs-lock-mode-off-hook))) (if (called-interactively-p (quote any)) 
(progn nil (unless (and (current-message) (not (equal last-message 
(current-message)))) (message "Emacs-Lock mode %sabled" (if emacs-lock-mode 
"en" "dis"))))))
  emacs-lock-mode(toggle)
  call-interactively(emacs-lock-mode t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)

`arg' is free in the anonymous mode setter function in the definition
of `emacs-lock-mode':

| :variable (emacs-lock-mode .
|                              (lambda (mode)
|                                (emacs-lock--set-mode mode arg)))

Seems this is related to lexical binding.

You don't get that error when you use the compiled code, however.


Regards,

Michael.


In GNU Emacs 24.1.50.1 (i486-pc-linux-gnu, GTK+ Version 3.2.3)
 of 2012-04-10 on zelenka, modified by Debian
 (emacs-snapshot package, version 2:20120410-1)
Windowing system distributor `The X.Org Foundation', version 11.0.11104000
Configured using:
 `configure '--build' 'i486-linux-gnu' '--host' 'i486-linux-gnu'
 '--prefix=/usr' '--sharedstatedir=/var/lib' '--libexecdir=/usr/lib'
 '--localstatedir=/var' '--infodir=/usr/share/info'
 '--mandir=/usr/share/man' '--with-pop=yes'
 
'--enable-locallisppath=/etc/emacs-snapshot:/etc/emacs:/usr/local/share/emacs/24.1.50/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/24.1.50/site-lisp:/usr/share/emacs/site-lisp'
 '--without-compress-info' '--with-crt-dir=/usr/lib/i386-linux-gnu/'
 '--with-x=yes' '--with-x-toolkit=gtk3' '--with-imagemagick=yes'
 'build_alias=i486-linux-gnu' 'host_alias=i486-linux-gnu'
 'CFLAGS=-DDEBIAN -DSITELOAD_PURESIZE_EXTRA=5000 -g -O2''