瀏覽代碼

Set macro indent using declare

pull/15/head
10sr 10 年之前
父節點
當前提交
a9d0136ddc
共有 1 個檔案被更改,包括 1 行新增1 行删除
  1. +1
    -1
      emacs.el

+ 1
- 1
emacs.el 查看文件

@@ -52,6 +52,7 @@ the function same as FEATURE is defined as autoloaded function. BODY is passed
to `eval-after-load'. to `eval-after-load'.
After this macro is expanded, this returns the path to library if FEATURE After this macro is expanded, this returns the path to library if FEATURE
found, otherwise returns nil." found, otherwise returns nil."
(declare (indent 2) (debug t))
(let* ((libname (symbol-name (eval feature))) (let* ((libname (symbol-name (eval feature)))
(libpath (locate-library libname))) (libpath (locate-library libname)))
`(progn `(progn
@@ -74,7 +75,6 @@ found, otherwise returns nil."
(quote (progn (quote (progn
,@body))) ,@body)))
(locate-library ,libname)))) (locate-library ,libname))))
(put 'autoload-eval-lazily 'lisp-indent-function 2)


(when (autoload-eval-lazily 'tetris nil (when (autoload-eval-lazily 'tetris nil
(message "Tetris loaded!")) (message "Tetris loaded!"))


Loading…
取消
儲存