equal
deleted
inserted
replaced
2164 `( |
2164 `( |
2165 ("(\\<\\(lambda\\)\\>" |
2165 ("(\\<\\(lambda\\)\\>" |
2166 (1 (progn (compose-region (match-beginning 1) (match-end 1) ,(make-char 'greek-iso8859-7 107)) font-lock-keyword-face)) |
2166 (1 (progn (compose-region (match-beginning 1) (match-end 1) ,(make-char 'greek-iso8859-7 107)) font-lock-keyword-face)) |
2167 ) |
2167 ) |
2168 )) |
2168 )) |
|
2169 |
|
2170 (defun my-dump-funcs () |
|
2171 "Dump all function calls in current buffer. Useful to explore |
|
2172 elisp API from somebody else files." |
|
2173 (interactive) |
|
2174 (let* ( (cur-buffer (current-buffer)) (new-buffer (get-buffer-create (concat (buffer-name cur-buffer) "-funcs.el"))) symb ) |
|
2175 (while (search-forward-regexp "([[:alnum:]*]" nil t) |
|
2176 (setq symb (thing-at-point 'symbol)) |
|
2177 (with-current-buffer new-buffer |
|
2178 (insert-string symb) |
|
2179 (insert-char ?\n 1))) |
|
2180 (switch-to-buffer new-buffer) |
|
2181 (shell-command-on-region (point-min) (point-max) "sort -u" nil t) |
|
2182 )) |
2169 |
2183 |
2170 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2184 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2171 (message "C, c-mode, C++, c++-mode") |
2185 (message "C, c-mode, C++, c++-mode") |
2172 |
2186 |
2173 ;; Minor mode that highlights suspicious C and C++ constructions. |
2187 ;; Minor mode that highlights suspicious C and C++ constructions. |