Mercurial > emacs
comparison lisp/face-remap.el @ 96091:594843cd487e
Fix variable names in buffer-face-mode-invoke
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1263
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 20 Jun 2008 09:00:52 +0000 |
parents | 596ac435a025 |
children | fea1ab635d2d |
comparison
equal
deleted
inserted
replaced
96090:596ac435a025 | 96091:594843cd487e |
---|---|
381 `buffer-face-toggle' (depending on ARG), and prints a status | 381 `buffer-face-toggle' (depending on ARG), and prints a status |
382 message in the echo area. In many cases one of those functions | 382 message in the echo area. In many cases one of those functions |
383 may be more appropriate." | 383 may be more appropriate." |
384 (let ((last-message (current-message))) | 384 (let ((last-message (current-message))) |
385 (if (or (eq arg 'toggle) (not arg)) | 385 (if (or (eq arg 'toggle) (not arg)) |
386 (buffer-face-toggle face) | 386 (buffer-face-toggle specs) |
387 (buffer-face-set (and (> (prefix-numeric-value arg) 0) face))) | 387 (buffer-face-set (and (> (prefix-numeric-value arg) 0) specs))) |
388 (when interactive | 388 (when interactive |
389 (unless (and (current-message) | 389 (unless (and (current-message) |
390 (not (equal last-message (current-message)))) | 390 (not (equal last-message (current-message)))) |
391 (message "Buffer-Face mode %sabled" | 391 (message "Buffer-Face mode %sabled" |
392 (if buffer-face-mode "en" "dis")))))) | 392 (if buffer-face-mode "en" "dis")))))) |