diff options
| author | Karl Heuer | 1998-04-12 18:13:34 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-04-12 18:13:34 +0000 |
| commit | c2a2ac1a7cc60953e9dc2830f11cb896e285260a (patch) | |
| tree | 6f78c5dd7d6537b40bd6bbc3cbfb7fbe82d1133a | |
| parent | cdcd5553b06a352346fe02e18de518ee46cf41db (diff) | |
| download | emacs-c2a2ac1a7cc60953e9dc2830f11cb896e285260a.tar.gz emacs-c2a2ac1a7cc60953e9dc2830f11cb896e285260a.zip | |
(gnus-emphasis-alist): Use nth, not caddr.
| -rw-r--r-- | lisp/gnus/gnus-art.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 6f3b9d00a23..1df219fab65 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el | |||
| @@ -191,7 +191,7 @@ asynchronously. The compressed face will be piped to this command." | |||
| 191 | (lambda (spec) | 191 | (lambda (spec) |
| 192 | (list | 192 | (list |
| 193 | (format format (car spec) (cadr spec)) | 193 | (format format (car spec) (cadr spec)) |
| 194 | 2 3 (intern (format "gnus-emphasis-%s" (caddr spec))))) | 194 | 2 3 (intern (format "gnus-emphasis-%s" (nth 2 spec))))) |
| 195 | types))) | 195 | types))) |
| 196 | "Alist that says how to fontify certain phrases. | 196 | "Alist that says how to fontify certain phrases. |
| 197 | Each item looks like this: | 197 | Each item looks like this: |