mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Gerd Moellmann 2001-10-05 09:36:02 +00:00
parent 7271daf79b
commit d8754ce528
3 changed files with 17 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/bs.el
View file

@ -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

16
lisp/emacs-lisp/tq.el
View file

@ -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:

14
lisp/net/goto-addr.el
View file

@ -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)