imenu parser for emacs delphi-mode

improve the one found on  http://www.emacswiki.org/emacs/DelphiMode

1. support 'record', 'class' and 'interface' as level 1 menu
2. methods show as submenu of class
3. correctly jump to the impl. part (ignore interface part)

FIXME: currently not work if no 'interface/implementation'

keyword: emacs, delphi, freepascal, imenu, ecb

Emacs的Tab键与缩进

** EMACS缺省的模式

*** 在缺省的键绑定下，TAB键是这样工作的

(见indent.el中indent-for-tab-command函数)

if 选择的是块
   then 对块进行语法缩进
else
 if (eq tab-always-indent t)
    then (按下TAB键时始终对当前行按语法缩进，不管是在行开始的空白处还是
         后面的位置，缩进量与tab-width参数无关，只与当前语法风格有关系,具体
         缩进由indent-line-function完成，各个模块可重新定义这个函数)
 else
    if 如果光标在
        1）行首空白区(即在indentation区内)，则取消所有缩进
        2) 行首第一个非空白字符上， 则按第一次则语法缩进，第二次则插入
           tab字符或者空格(插入TAB还是空格则依赖于indent-tabs-mode设置)
        3) 不在行首,插入tab字符或者空格

*** tab-width / default-tab-width
    只影响真正tab字符的显示宽度，不影响按TAB键的缩进量(但会反过来
    将缩进量换算为tab字符个数+空格个数，这与其它编辑器相反，它们是每次添加
    tab字符或者相应的空格数)

*** M-i & tab-stop-list
    M-i在功能上跟平日里在其它编辑器里面的TAB键倒有点相近（如果所选的不是一
    块的话），它会将后面的字符向后移动，移到tab-stop-list里面所指向的下一个
    stop点，具体是填充tab字符还是空格以及多少个，也是由indent-tabs-mode和
    tab-width确定。(这个tab-stop-list对于编程人员，似乎没有什么用处)。

 

** 我期望的工作方式

*** 不插入tab字符，因为TAB是邪恶的(setq indent-tabs-mode nil)，实在需要TAB键则用C-q TAB
*** 每次缩进4个空格(setq default-tab-width 4)
*** 缩进完全自行控制，不用syntax indentation来自动 （按语法格式化完全可以使用C-_）
*** 按TAB键时
    如果选择多行，则缩进(行首插入多个空格)
    如果未选择多行，当前光标在行首（不管是indentation区还是第一个字符上)，则缩进
        光标不在行首，插入多个空格[1]
*** 按Shift-TAB键时
    如果选择多行，则反缩进(行首删除多个空格)
    如果未选择多行，光标在行首，反缩进
        光标不在行首，发向移动光标或者什么也不做

 

** 解决方案

从最后两条来看，原来的indent-for-tab-command不能满足需求，需要将TAB键绑定到别的函数才行。在网上搜了半天，找到这篇文章提供的方法正是我所要的：
emacs, indent/unindent region as a block using the tab key
http://ignaciopp.wordpress.com/2009/06/17/emacs-indentunindent-region-as-a-block-using-tab-key/


[1] 如果要将代码补齐考虑进来，则:
        如果光标在一个单词的末尾，则TAB键需要激活补全函数
        如果单词后有一个空格，再按TAB键则添加空格

上面链接中的实现也考虑了，如果要对接其它的代码补齐，只需要将(hippie-expand nil)换成其它的即可，比如auto-complete的ac-start