/[emacs]/emacs/lisp/net/rcirc.el
ViewVC logotype

Diff of /emacs/lisp/net/rcirc.el

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

revision 1.2 by rms, Thu Oct 20 16:53:55 2005 UTC revision 1.3 by rfrancoise, Thu Oct 20 18:28:18 2005 UTC
# Line 554  If buffer is nil, return the target of t Line 554  If buffer is nil, return the target of t
554    
555    (run-hooks 'rcirc-mode-hook))    (run-hooks 'rcirc-mode-hook))
556    
557    (defmacro with-rcirc-process-buffer (process &rest body)
558      (declare (indent 1) (debug t))
559      `(with-current-buffer (process-buffer ,process)
560         ,@body))
561    
562  (defun rcirc-update-prompt ()  (defun rcirc-update-prompt ()
563    "Reset the prompt string in the current buffer."    "Reset the prompt string in the current buffer."
564    (let ((inhibit-read-only t)    (let ((inhibit-read-only t)
# Line 777  Used for displaying messages that don't Line 782  Used for displaying messages that don't
782    (with-current-buffer (process-buffer process)    (with-current-buffer (process-buffer process)
783      (setq rcirc-last-buffer buffer)))      (setq rcirc-last-buffer buffer)))
784    
 (defmacro with-rcirc-process-buffer (process &rest body)  
   (declare (indent 1) (debug t))  
   `(with-current-buffer (process-buffer ,process)  
      ,@body))  
   
785  (defun rcirc-format-response-string (process sender response target text)  (defun rcirc-format-response-string (process sender response target text)
786    (concat (when rcirc-time-format    (concat (when rcirc-time-format
787              (format-time-string rcirc-time-format (current-time)))              (format-time-string rcirc-time-format (current-time)))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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