Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2b8e87c4
Commit
2b8e87c4
authored
Sep 15, 2009
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(diary-display-function): Change the default to fancy display.
(body): Define for compiler.
parent
c2768569
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
6 deletions
+6
-6
lisp/calendar/diary-lib.el
lisp/calendar/diary-lib.el
+6
-6
No files found.
lisp/calendar/diary-lib.el
View file @
2b8e87c4
...
...
@@ -151,10 +151,9 @@ Used for example by the appointment package - see `appt-activate'."
(
define-obsolete-variable-alias
'diary-display-hook
'diary-display-function
"23.1"
)
(
defcustom
diary-display-function
'diary-
simple
-display
(
defcustom
diary-display-function
'diary-
fancy
-display
"Function used to display the diary.
The default is `diary-simple-display'; `diary-fancy-display' is
an alternative.
The two standard options are `diary-fancy-display' and `diary-simple-display'.
For historical reasons, `nil' is the same as `diary-simple-display'
\(so you must use `ignore' for no display). Also for historical
...
...
@@ -167,14 +166,14 @@ form of ((MONTH DAY YEAR) STRING), where string is the diary
entry for the given date. This can be used, for example, to
produce a different buffer for display (perhaps combined with
holidays), or hard copy output."
:type
'
(
choice
(
const
diary-
simple
-display
:tag
"
Basic
display"
)
(
const
diary-
fancy
-display
:tag
"
Fancy
display"
)
:type
'
(
choice
(
const
diary-
fancy
-display
:tag
"
Fancy
display"
)
(
const
diary-
simple
-display
:tag
"
Basic
display"
)
(
const
ignore
:tag
"No display"
)
(
const
nil
:tag
"Obsolete way to choose basic display"
)
(
hook
:tag
"Obsolete form with list of display functions"
))
:initialize
'custom-initialize-default
:set
'diary-set-maybe-redraw
:version
"23.
1"
:version
"23.
2"
; simple->fancy
:group
'diary
)
(
define-obsolete-variable-alias
'list-diary-entries-hook
...
...
@@ -2381,6 +2380,7 @@ Fontify the region between BEG and END, quietly unless VERBOSE is non-nil."
;; `diary-outlook-formats'.
(defvar subject) ; bound in diary-from-outlook-gnus
(defvar body)
(defun diary-from-outlook-internal (&optional test-only)
"
Snarf
a
diary
entry
from
a
message
assumed
to
be
from
MS
Outlook.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment