better `up-list' for emacs-lisp, fundamental modes

[Joe Corneli]

In Emacs-Lisp mode, `forward-sexp' lets you move over parentheses
and strings:

**forward-sexp testing**

(this-is-a-function)
^                   ^

"this-is-a-string" 
^                ^


However, `up-list' does not let you move up out of a string:

**up-list testing**

(this-is-a-function)
     ^              ^

"this-is-a-string"
     ^            ;=> up-list: Scan error: "Unbalanced parentheses", 196, 228


Unfortunately, this is ever true when the string is inside of a
function:

(concat "this-is-a-string" "--this-is-too")
             ^    ;=> up-list: Scan error: "Unbalanced parentheses", 656 771

Note `up-list' works for strings inside parentheses in Text mode tho
non-parenthesized strings do cause an error in Text mode.

I think behavior like text mode should be available in Emacs-Lisp mode
and other modes where it is likely to be useful!



In GNU Emacs 21.3.50.1 (powerpc-apple-darwin7.4.0, X toolkit)
 of 2004-06-22 on hope-of-a-stone.local
configured using `configure '--prefix=/sw' '--without-carbon' '--with-x' 
'--without-gif' '--infodir=${prefix}/share/info' '--mandir=${prefix}/share/man' 
'--libexecdir=${prefix}/lib' '--with-x-toolkit=lucid' 
'--without-toolkit-scroll-bars' 'CPPFLAGS=-I/sw/include' 'LDFLAGS=-L/sw/lib''

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: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Info

Minor modes in effect:
  auto-image-file-mode: t
  show-paren-mode: t
  display-time-mode: t
  mouse-wheel-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
d e l e t e - r e p M-/ <M-backspace> <M-backspace> 
d e M-/ M-/ C-e <return> M-> M-< C-x o <up> <up> <up> 
<up> <up> C-x o C-s n e w l e n g t h C-x o C-r d o 
- d e l e C-r C-r <down> <down> <down> <down> <down> 
<down> <down> <right> <right> <right> <right> <right> 
<right> <C-backspace> C-y <left> <left> <left> <C-up> 
C-x b <return> C-x b <return> C-h k <C-up> C-x o C-x 
b <return> C-x b * C-g M-x r e p o <tab> r <tab> b 
<tab> <return>

Recent messages:
Quit
nil
Mark saved where search started [2 times]
Mark set
Auto-saving...
up-list: Scan error: "Unbalanced parentheses", 9117, 17736
Type C-t b w RET to restore the other window.  C-M-v to scroll the help.
Quit
Making completion list...
Loading emacsbug...done