Просмотр исходного кода

Set macro indent using declare

pull/15/head
10sr 10 лет назад
Родитель
Сommit
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!"))


Загрузка…
Отмена
Сохранить