Artem Shvorin wrote:
: После перехода на mule обнаружил следующий глюк: функции
: sml-user-{forward,backward}-sexp (это аналоги {forward,backward}-sexp,
: заточенные под sml-ный синтаксис) снимают пометку блока
: (set-mark-command),
[skip]
:
: Какие есть предложения, как с этим бороться?
:
Добавить в этих финкциях к параметрам вызова `(intercactive)' флаг "_".
Если interactive уже имеет параметры, то добавлять нужно в начало
параметров.
Например:
(defun some-function ()
; (interactive) ;; так пометка с блока будет сниматься
(interactive "_") ;; а так -- не будет
; некоторая полезная работа
)
Второй пример:
(defun some-function (buff)
; (interactive "bEnter buffer name: ") ;; так пометка с блока
;; будет сниматься
(interactive "_bEnter buffer name: ") ;; а так -- не будет
; некоторая полезная работа
)
Подробнее см. `(lispref)Defining Commands'
--
Andrew W. Nosenko (awn(a)bcs.zp.ua)