/[emacs]/emacs/lisp/calendar/calendar.el
ViewVC logotype

Diff of /emacs/lisp/calendar/calendar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.171 by miles, Fri Jun 10 10:43:42 2005 UTC revision 1.172 by lute, Sun Jun 12 08:57:58 2005 UTC
# Line 2447  For a complete description, type \ Line 2447  For a complete description, type \
2447  \\<calendar-mode-map>\\[calendar-goto-info-node] from within the calendar.  \\<calendar-mode-map>\\[calendar-goto-info-node] from within the calendar.
2448    
2449  \\<calendar-mode-map>\\{calendar-mode-map}"  \\<calendar-mode-map>\\{calendar-mode-map}"
   
2450    (kill-all-local-variables)    (kill-all-local-variables)
2451    (setq major-mode 'calendar-mode)    (setq major-mode 'calendar-mode)
2452    (setq mode-name "Calendar")    (setq mode-name "Calendar")
# Line 2460  For a complete description, type \ Line 2459  For a complete description, type \
2459    (make-local-variable 'displayed-month);;  Month in middle of window.    (make-local-variable 'displayed-month);;  Month in middle of window.
2460    (make-local-variable 'displayed-year) ;;  Year in middle of window.    (make-local-variable 'displayed-year) ;;  Year in middle of window.
2461    (set (make-local-variable 'font-lock-defaults)    (set (make-local-variable 'font-lock-defaults)
2462         '(calendar-font-lock-keywords t)))         '(calendar-font-lock-keywords t))
2463      (run-mode-hooks 'calendar-mode-hook))
2464    
2465  (defun calendar-string-spread (strings char length)  (defun calendar-string-spread (strings char length)
2466    "Concatenate list of STRINGS separated with copies of CHAR to fill LENGTH.    "Concatenate list of STRINGS separated with copies of CHAR to fill LENGTH.

Legend:
Removed from v.1.171  
changed lines
  Added in v.1.172

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26