bug#667: mark-defun (C-M-h)

bug#667: mark-defun (C-M-h)

[Albert Neumüller]

Hi!

Place point at the beginning of the line "(message ..."
Then try C-M-h.

(defun inc (i)
  "Increment argument I"
(interactive "p")
(message "%d" (+ i 1)))

The whole defun is not marked. (So I cannot continue and indent it with C-M-\ )

Is this a bug?

Regards,
Albert




In GNU Emacs 22.1.1 (i486-pc-linux-gnu, GTK+ Version 2.12.0)
 of 2008-05-02 on terranova, modified by Ubuntu
Windowing system distributor `The X.Org Foundation', version 11.0.10300000
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/emacs22:/etc/emacs:/usr/local/share/emacs/22.1/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/22.1/site-lisp:/usr/share/emacs/site-lisp:/usr/share/emacs/22.1/leim'
'--with-x=yes' '--with-x-toolkit=gtk' 'build_alias=i486-linux-gnu'
'host_alias=i486-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: en_US.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t

bug#667: mark-defun (C-M-h)

[martin rudalics]

 > Place point at the beginning of the line "(message ..."
 > Then try C-M-h.
 >
 > (defun inc (i)
 >   "Increment argument I"
 > (interactive "p")
 > (message "%d" (+ i 1)))
 >
 > The whole defun is not marked. (So I cannot continue and indent it with C-M-\ )
 >
 > Is this a bug?

Not really.  If you want such behavior you have to toggle
`open-paren-in-column-0-is-defun-start' to nil.

martin