equal
deleted
inserted
replaced
63 (if r |
63 (if r |
64 (nconc r (cons item nil)) |
64 (nconc r (cons item nil)) |
65 (setq r (cons item nil))))) |
65 (setq r (cons item nil))))) |
66 ,list) |
66 ,list) |
67 r)) |
67 r)) |
|
68 |
|
69 (unless (fboundp 'ignore-errors) |
|
70 (defmacro ignore-errors (&rest body) |
|
71 "Execute BODY; if an error occurs, return nil. |
|
72 Otherwise, return result of last form in BODY." |
|
73 (declare (debug t) (indent 0)) |
|
74 `(condition-case nil (progn ,@body) (error nil))) |
|
75 ) |
68 |
76 |
69 ;;; ---------------------------------------------------------------- |
77 ;;; ---------------------------------------------------------------- |
70 (message "mode groups") |
78 (message "mode groups") |
71 |
79 |
72 (defmacro my-defun-rename-symb-tree (name doc func) |
80 (defmacro my-defun-rename-symb-tree (name doc func) |