bug#10264: 24.0.92; Indentation not working in pascal-mode

bug#10264: 24.0.92; Indentation not working in pascal-mode

[Grzegorz Kowzan]

Create a buffer and enter pascal-mode, then write for example:

program some_program;

begin

end.

and press <TAB> between "begin" and "end."  Produces an error message in
minibuffer "Symbol's value as variable void: ind" and does nothing else.


In GNU Emacs 24.0.92.1 (x86_64-pc-linux-gnu, GTK+ Version 3.2.2)
 of 2011-12-06 on zelenka, modified by Debian
 (emacs-snapshot package, version 1:20111206-1)
configured using `configure  '--build' 'x86_64-linux-gnu' '--host' 'x86_64-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.0.92/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/24.0.92/site-lisp:/usr/share/emacs/site-lisp' '--without-compress-info' '--with-crt-dir=/usr/lib/x86_64-linux-gnu/' '--with-x=yes' '--with-x-toolkit=gtk3' '--with-imagemagick=yes' 'build_alias=x86_64-linux-gnu' 'host_alias=x86_64-linux-gnu' 'CFLAGS=-DDEBIAN -DSITELOAD_PURESIZE_EXTRA=5000 -g -O2''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: pl_PL.UTF-8
  value of $XMODIFIERS: nil
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: Pascal

Minor modes in effect:
  tooltip-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
C-x b p s a c l a RET ESC x p a s c m TAB DEL a TAB 
RET b e g i n DEL DEL DEL DEL DEL p r o g r a m SPC 
s o m e _ p r o g r a m ; RET RET b e g i n RET RET 
e d DEL b d ; DEL DEL DEL n d . ESC [ A TAB ESC x r 
e p o r t - b u TAB RET

Recent messages:
("emacs-snapshot")
For information about GNU Emacs and the GNU system, type C-h C-a.
eval: Symbol's value as variable is void: ind
eval: Symbol's value as variable is void: ind

Load-path shadows:
/usr/share/emacs/24.0.92/site-lisp/debian-startup hides /usr/share/emacs/site-lisp/debian-startup

Features:
(shadow sort gnus-util mail-extr message format-spec rfc822 mml easymenu
mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045
ietf-drums mm-util mail-prsvr mailabbrev mail-utils gmm-utils mailheader
emacsbug pascal time-date tooltip ediff-hook vc-hooks lisp-float-type
mwheel x-win x-dnd tool-bar dnd fontset image fringe lisp-mode register
page menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock
font-lock syntax facemenu font-core frame cham georgian utf-8-lang
misc-lang vietnamese tibetan thai tai-viet lao korean japanese hebrew
greek romanian slovak czech european ethiopic indian cyrillic chinese
case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer loaddefs
button faces cus-face files text-properties overlay sha1 md5 base64
format env code-pages mule custom widget hashtable-print-readable
backquote make-network-process dbusbind dynamic-setting
system-font-setting font-render-setting move-toolbar gtk x-toolkit x
multi-tty emacs)

bug#10264: 24.0.92; Indentation not working in pascal-mode

[Glenn Morris]

Grzegorz Kowzan wrote:

> and press <TAB> between "begin" and "end."  Produces an error message in
> minibuffer "Symbol's value as variable void: ind" and does nothing else.

This is caused by the use of lexical-binding in pascal.el.
pascal-indent-line evals pascal-indent-alist to calculate an indent.

> In GNU Emacs 24.0.92.1 (x86_64-pc-linux-gnu, GTK+ Version 3.2.2)

bug#10264: 24.0.92; Indentation not working in pascal-mode

[Stefan Monnier]

> Create a buffer and enter pascal-mode, then write for example:
> program some_program;

> begin

> end.

> and press <TAB> between "begin" and "end."  Produces an error message in
> minibuffer "Symbol's value as variable void: ind" and does nothing else.

Duh!
I've install the patch below which should fix this problem.
Sorry 'bout that.


        Stefan


--- lisp/progmodes/pascal.el	2011-11-20 03:48:53 +0000
+++ lisp/progmodes/pascal.el	2011-12-13 15:16:53 +0000
@@ -786,6 +786,7 @@
     (if (looking-at "[ \t]+$")
 	(skip-chars-forward " \t"))))
 
+(defvar ind)			       ;Used via `eval' in pascal-indent-alist.
 (defun pascal-indent-line ()
   "Indent current line as a Pascal statement."
   (let* ((indent-str (pascal-calculate-indent))