Mercurial > emacs
comparison lisp/emacs-lisp/shadow.el @ 105372:bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 02 Oct 2009 03:48:36 +0000 |
| parents | 94f1fe5b7430 |
| children | dd099beb5a5b |
comparison
equal
deleted
inserted
replaced
| 105371:0769a73f1d18 | 105372:bd2966850aac |
|---|---|
| 239 (insert (format "%s hides %s\n" (car shadows) | 239 (insert (format "%s hides %s\n" (car shadows) |
| 240 (car (cdr shadows)))) | 240 (car (cdr shadows)))) |
| 241 (setq shadows (cdr (cdr shadows)))) | 241 (setq shadows (cdr (cdr shadows)))) |
| 242 (if stringp | 242 (if stringp |
| 243 (buffer-string) | 243 (buffer-string) |
| 244 (if (interactive-p) | 244 (if (called-interactively-p 'interactive) |
| 245 (save-excursion | 245 (save-excursion |
| 246 ;; We are interactive. | 246 ;; We are interactive. |
| 247 ;; Create the *Shadows* buffer and display shadowings there. | 247 ;; Create the *Shadows* buffer and display shadowings there. |
| 248 (let ((string (buffer-string)) | 248 (let ((string (buffer-string)) |
| 249 (output-buffer (get-buffer-create "*Shadows*"))) | 249 (output-buffer (get-buffer-create "*Shadows*"))) |