Commit 244c569f authored by Ulrik Haugen's avatar Ulrik Haugen
Browse files

* swedish-strings.el (lyskom-sv-edit-mode-map) english-strings.el

(lyskom-en-edit-mode-map): Added binding for
kom-insert-last-info-nodename.

* lyskom-buttons.el (lyskom-button-copy-timestamp): Fixed typo.

* lyskom-rest.el (lyskom-modify-prompt): Use current-time instead
of lyskom-current-client-time (fixes bug 1022).
parent 1dc0104e
2003-04-26 Ulrik Haugen <qha@lysator.liu.se>
* swedish-strings.el (lyskom-sv-edit-mode-map) english-strings.el
(lyskom-en-edit-mode-map): Added binding for
kom-insert-last-info-nodename.
* lyskom-buttons.el (lyskom-button-copy-timestamp): Fixed typo.
* lyskom-rest.el (lyskom-modify-prompt): Use current-time instead
of lyskom-current-client-time (fixes bug 1022).
2003-04-25 David Byers <byers@lysator.liu.se>
* vars.el.in (kom-highlight-conferences): Corrected order of
......
......@@ -108,6 +108,7 @@
(define-key lyskom-en-edit-prefix (kbd "C-i 9") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i SPC") 'kom-edit-insert-text)
(define-key lyskom-en-edit-prefix (kbd "C-i C-l") 'kom-edit-insert-link)
(define-key lyskom-en-edit-prefix (kbd "C-i C-i") 'kom-insert-last-info-nodename)
(define-key lyskom-en-edit-prefix (kbd "C-a") 'lyskom-en-edit-add-prefix)
(define-key lyskom-en-edit-prefix (kbd "C-a C-r") 'kom-edit-add-recipient)
(define-key lyskom-en-edit-prefix (kbd "C-a C-c") 'kom-edit-add-copy)
......
......@@ -650,12 +650,12 @@ up."
((eq type 'timestamp)
(setq face 'default
subtle t)
(cond ((null arg) (setq xarg (current-time)
;text (format-time-string "%Y-%m-%d %H:%M")
))
(cond ((null arg) (setq xarg (current-time)
;text (format-time-string "%Y-%m-%d %H:%M")
))
(t (setq xarg arg
;text (format-time-string "%Y-%m-%d %H:%M" arg)
))))
;text (format-time-string "%Y-%m-%d %H:%M" arg)
))))
(t (setq xarg arg
text "")))
(lyskom-generate-button type xarg text face menu-title subtle))))
......@@ -933,7 +933,7 @@ This is a LysKOM button action."
;;; Timestamp button
;;;
(defun lyskom-button-copy-timestamp (but arg text)
(defun lyskom-button-copy-timestamp (buf arg text)
"In the LysKOM buffer BUF, ignore TEXT and copy ARG to the kill ring
after formating it as time. This is a LysKOM button action."
(kill-new (format-time-string "%Y-%m-%d %H:%M" arg)))
......
......@@ -2959,7 +2959,7 @@ Set lyskom-current-prompt accordingly. Tell server what I am doing."
lyskom-current-prompt-timestamp))))
'(lyskom-prompt t))
text)
(when executing (setq lyskom-current-prompt-timestamp (lyskom-current-client-time)))
(when executing (setq lyskom-current-prompt-timestamp (current-time)))
text))
......
......@@ -120,6 +120,7 @@
(define-key lyskom-sv-edit-prefix (kbd "C-i 9") 'kom-edit-insert-digit-text)
(define-key lyskom-sv-edit-prefix (kbd "C-i SPC") 'kom-edit-insert-text)
(define-key lyskom-sv-edit-prefix (kbd "C-i C-l") 'kom-edit-insert-link)
(define-key lyskom-sv-edit-prefix (kbd "C-i C-i") 'kom-insert-last-info-nodename)
(define-key lyskom-sv-edit-prefix (kbd "C-a") 'lyskom-sv-edit-add-prefix)
(define-key lyskom-sv-edit-prefix (kbd "C-a C-m") 'kom-edit-add-recipient)
(define-key lyskom-sv-edit-prefix (kbd "C-a <RET>") 'kom-edit-add-recipient)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment