Mercurial > emacs
changeset 39568:e67950065cf9
Change ;;; to ;; for outline-minor-mode.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 05 Oct 2001 09:36:02 +0000 |
| parents | 49445c8e650d |
| children | 9d258703ad61 |
| files | lisp/bs.el lisp/emacs-lisp/tq.el lisp/net/goto-addr.el |
| diffstat | 3 files changed, 17 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/bs.el Fri Oct 05 09:35:36 2001 +0000 +++ b/lisp/bs.el Fri Oct 05 09:36:02 2001 +0000 @@ -187,7 +187,7 @@ (setq ele (cdr ele))) (concat res "$\\)"))) -;;; Font-Lock-Settings +;; Font-Lock-Settings (defvar bs-mode-font-lock-keywords (list ;; header in font-lock-type-face (list (bs--make-header-match-string) @@ -1511,7 +1511,7 @@ (setq bs--marked-buffers nil) (bs--show-with-configuration (bs--configuration-name-for-prefix-arg arg))) -;;; Now provide feature bs +;; Now provide feature bs (provide 'bs) ;;; bs.el ends here
--- a/lisp/emacs-lisp/tq.el Fri Oct 05 09:35:36 2001 +0000 +++ b/lisp/emacs-lisp/tq.el Fri Oct 05 09:36:02 2001 +0000 @@ -26,15 +26,15 @@ ;;; Commentary: -;;; manages receiving a stream asynchronously, -;;; parsing it into transactions, and then calling -;;; handler functions +;; manages receiving a stream asynchronously, +;; parsing it into transactions, and then calling +;; handler functions -;;; Our basic structure is the queue/process/buffer triple. Each entry -;;; of the queue is a regexp/closure/function triple. We buffer -;;; bytes from the process until we see the regexp at the head of the -;;; queue. Then we call the function with the closure and the -;;; collected bytes. +;; Our basic structure is the queue/process/buffer triple. Each entry +;; of the queue is a regexp/closure/function triple. We buffer +;; bytes from the process until we see the regexp at the head of the +;; queue. Then we call the function with the closure and the +;; collected bytes. ;;; Code:
--- a/lisp/net/goto-addr.el Fri Oct 05 09:35:36 2001 +0000 +++ b/lisp/net/goto-addr.el Fri Oct 05 09:36:02 2001 +0000 @@ -80,7 +80,7 @@ :group 'hypermedia) -;;; I don't expect users to want fontify'ing without highlighting. +;; I don't expect users to want fontify'ing without highlighting. (defcustom goto-address-fontify-p t "*Non-nil means URLs and e-mail addresses in buffer are fontified. But only if `goto-address-highlight-p' is also non-nil." @@ -102,10 +102,10 @@ "A regular expression probably matching an e-mail address.") (defvar goto-address-url-regexp thing-at-point-url-regexp -;;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|" -;;; "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:" -;;; "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*" -;;; "[-a-zA-Z0-9_=#$@~`%&*+|\\/]") + ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|" + ;; "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:" + ;; "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*" + ;; "[-a-zA-Z0-9_=#$@~`%&*+|\\/]") "A regular expression probably matching a URL.") (defvar goto-address-highlight-keymap @@ -178,8 +178,8 @@ 'keymap goto-address-highlight-keymap) (overlay-put this-overlay 'goto-address t)))))))) -;;; code to find and goto addresses; much of this has been blatantly -;;; snarfed from browse-url.el +;; code to find and goto addresses; much of this has been blatantly +;; snarfed from browse-url.el ;;;###autoload (defun goto-address-at-mouse (event)