Emacs lisp求助：如何在 Linux Emacs 中编写 lisp 分隔符代码，点击后能实现悬浮工具栏的效果？
（示意效果见附件图片中标红色区域）。
lang-cmds_2in1.zip
----------------------------
另附: 目前正在编写的 Emacs 翻译包的处理流程和结构。目前代码仍在编写和调试测试中，可能要到七月中旬或7月底才能放出正式软件包。

说明：我写了个 lisp/language/lang-cmds.el， 作用是在添加一个菜单界面切换选项：
Options -> Select Menu Language -> ...

本文件中加入 (provide 'lang-cmds) 定义，
然后内部定义了 lang-zh-cn, lang-zh-tw 来手动加载翻译过菜单语言，如

/usr/share/emacs/23.1/site-lisp/zh_CN/lisp/menu-bar.el
/usr/share/emacs/23.1/site-lisp/zh_TW/lisp/menu-bar.el

文件1:
/usr/share/emacs/23.1/site-lisp/zh_CN/lisp/language/load-cmds.el
;;;------------------
;;; 部分内容示例
(provide 'lang-cmds)
;;; 定义示例
(defun lang-en ()
  "Toggle menu language to English (en)"
(interactive)
(load-library "en/lisp/menu-bar")) ; en/ 即 /usr/share/emacs/23.1/ 的符号链接
;(load-library "loadlang-en"))

(defun lang-zh-cn ()
  "Toggle menu language to Simplified Chinese, China (zh_CN)"
(interactive)
(load-library "loadlang-zh-cn"))

(defun lang-zh-tw ()
  "Toggle menu language to Traditional Chinese, Taiwan (zh_TW)"
(interactive)
(load-library "loadlang-zh-tw"))

;;;------------------

文件2: loadlang-zh-cn.el ，loadlang-zh-tw.el， 可以在翻译过程中自动创建和更新。
/usr/share/emacs/23.1/site-lisp/zh_CN/language/loadlang-zh-cn.el
/usr/share/emacs/23.1/site-lisp/zh_TW/language/loadlang-zh-tw.el
;;; ----------
;;; loadlang-zh-cn.el 内容示例如下
(provide 'loadlang-zh-cn)
(load "zh_CN/menu-bar")
;; 这里指定的 zh_CN/menu-bar 对应翻译过的
;;   /usr/share/emacs/23.1/site-lisp/zh_CN/lisp/menu-bar.el
;;; --------------

;;; loadlang-zh-tw.el 内容同理，省略
--