Re: current-time-zone

[Kevin Rodgers]

Jesper Harder wrote:

> gebser@speakeasy.net writes:
> > Should "M-x current-time-zone" return something?  Using emacs v.20.7.1
> > all get in the minibuffer is "[No match]".
>
> `current-time-zone' is not an interactive function.  You can't call it
> with `M-x'.

But you can if you do this:


(defadvice current-time-zone (around interactive activate)
  "If called interactively, display the result in the echo area (and
append to the *Messages* buffer).  If a prefix arg is specified, prompt
for SPECIFIED-TIME."
  (interactive (list (if current-prefix-arg
                         (let ((now (decode-time (current-time))))
                           (encode-time (string-to-number
                                         (read-string "Year: "
                                                      (format "%d"
                                                              (nth 5 now))))
                                        (string-to-number
                                         (read-string "Month: "
                                                      (format "%d"
                                                              (nth 4 now))))
                                        (string-to-number
                                         (read-string "Day: "
                                                      (format "%d"
                                                              (nth 3 now))))
                                        (string-to-number
                                         (read-string "Hour: "
                                                      (format "%d"
                                                              (nth 2 now))))
                                        (string-to-number
                                         (read-string "Minutes: "
                                                      (format "%d"
                                                              (nth 1 now))))
                                        (string-to-number
                                         (read-string "Seconds: "
                                                      (format "%d"
                                                              (nth 0 
now)))))))))
  ad-do-it
  (if (interactive-p)
      (message "%s" ad-return-value)
    ad-return-value))

--
Kevin Rodgers