Commit d8754ce5 authored by Gerd Moellmann's avatar Gerd Moellmann

Change ;;; to ;; for outline-minor-mode.

parent 7271daf7
......@@ -187,7 +187,7 @@ return a string representing the column's value."
(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 @@ name of buffer configuration."
(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
......@@ -26,15 +26,15 @@
;;; Commentary:
;;; 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.
;; 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.
;;; Code:
......
......@@ -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 @@ But only if `goto-address-highlight-p' is also non-nil."
"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 @@ and `goto-address-fontify-p'."
'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)
......
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