equal
deleted
inserted
replaced
73 (while li |
73 (while li |
74 (setq x2 (funcall f x2 (pop li))) |
74 (setq x2 (funcall f x2 (pop li))) |
75 ) |
75 ) |
76 x2 |
76 x2 |
77 ) ) |
77 ) ) |
|
78 |
|
79 (unless (fboundp 'ignore-errors) |
|
80 (defmacro ignore-errors (&rest body) |
|
81 "Execute BODY; if an error occurs, return nil. |
|
82 Otherwise, return result of last form in BODY." |
|
83 (declare (debug t) (indent 0)) |
|
84 `(condition-case nil (progn ,@body) (error nil))) |
|
85 ) |
78 |
86 |
79 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
87 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
80 (message "mode groups") |
88 (message "mode groups") |
81 |
89 |
82 (defmacro my-defun-rename-symb-tree (name doc func) |
90 (defmacro my-defun-rename-symb-tree (name doc func) |