diff options
| author | Karl Heuer | 1997-11-17 01:59:00 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-11-17 01:59:00 +0000 |
| commit | bfc7bff6f9d115b945a0de2d0b6b81fda2a83e8c (patch) | |
| tree | c3e1742a1142a6e467cdb04aa5267d0280bcca94 | |
| parent | f674d9acf54225df8018fed2b3a658b71673763b (diff) | |
| download | emacs-bfc7bff6f9d115b945a0de2d0b6b81fda2a83e8c.tar.gz emacs-bfc7bff6f9d115b945a0de2d0b6b81fda2a83e8c.zip | |
(list-islamic-diary-entries): Add the diary entry
"specifier" to the entry on the list.
| -rw-r--r-- | lisp/calendar/cal-islam.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/calendar/cal-islam.el b/lisp/calendar/cal-islam.el index 1949a6b48dd..b791524a7ff 100644 --- a/lisp/calendar/cal-islam.el +++ b/lisp/calendar/cal-islam.el | |||
| @@ -263,7 +263,10 @@ not be marked in the calendar. This function is provided for use with the | |||
| 263 | (backward-char 1) | 263 | (backward-char 1) |
| 264 | (subst-char-in-region date-start (point) ?\^M ?\n t) | 264 | (subst-char-in-region date-start (point) ?\^M ?\n t) |
| 265 | (add-to-diary-list | 265 | (add-to-diary-list |
| 266 | gdate (buffer-substring entry-start (point))))))) | 266 | gdate |
| 267 | (buffer-substring-no-properties entry-start (point)) | ||
| 268 | (buffer-substring-no-properties | ||
| 269 | (1+ date-start) (1- entry-start))))))) | ||
| 267 | (setq d (cdr d)))) | 270 | (setq d (cdr d)))) |
| 268 | (setq gdate | 271 | (setq gdate |
| 269 | (calendar-gregorian-from-absolute | 272 | (calendar-gregorian-from-absolute |