mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

In files that use allout use it for all headings

Browse source 
* lisp/allout.el: Don't prefix regular comments with three
semicolons.
* lisp/icomplete.el: Use allout syntax for all headings.
* lisp/net/eudc.el: Use allout syntax for all headings.
This commit is contained in:
Jonas Bernoulli 2021-06-30 22:17:01 +02:00
parent ecec94dcf0
commit 8ebd8e1fea
3 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/allout.el
View file

@ -2490,10 +2490,10 @@ We skip anomalous low-level topics, a la `allout-aberrant-container-p'."
;;;_ - Subtree Charting ;;;_ - Subtree Charting
;;;_ " These routines either produce or assess charts, which are ;;;_ " These routines either produce or assess charts, which are
;;; nested lists of the locations of topics within a subtree. ;; nested lists of the locations of topics within a subtree.
;;; ;;
;;; Charts enable efficient subtree navigation by providing a reusable basis ;; Charts enable efficient subtree navigation by providing a reusable basis
;;; for elaborate, compound assessment and adjustment of a subtree. ;; for elaborate, compound assessment and adjustment of a subtree.
;;;_ > allout-chart-subtree (&optional levels visible orig-depth prev-depth) ;;;_ > allout-chart-subtree (&optional levels visible orig-depth prev-depth)
(defun allout-chart-subtree (&optional levels visible orig-depth prev-depth) (defun allout-chart-subtree (&optional levels visible orig-depth prev-depth)

8
lisp/icomplete.el
View file

@ -276,8 +276,8 @@ Last entry becomes the first and can be selected with
(setcdr last-but-one (cdr (cdr last-but-one))))) (setcdr last-but-one (cdr (cdr last-but-one)))))
(completion--cache-all-sorted-completions beg end comps))) (completion--cache-all-sorted-completions beg end comps)))
;;; Helpers for `fido-mode' (or `ido-mode' emulation) ;;;_* Helpers for `fido-mode' (or `ido-mode' emulation)
;;;
(defun icomplete-fido-kill () (defun icomplete-fido-kill ()
"Kill line or current completion, like `ido-mode'. "Kill line or current completion, like `ido-mode'.
If killing to the end of line make sense, call `kill-line', If killing to the end of line make sense, call `kill-line',
@ -966,7 +966,7 @@ matches exist."
;; is cached. ;; is cached.
(if last (setcdr last base-size)))))))) (if last (setcdr last base-size))))))))
;;; Iswitchb compatibility ;;;_* Iswitchb compatibility
;; We moved Iswitchb to `obsolete' in 24.4, but autoloads in files in ;; We moved Iswitchb to `obsolete' in 24.4, but autoloads in files in
;; `obsolete' aren't obeyed (since that would encourage people to keep using ;; `obsolete' aren't obeyed (since that would encourage people to keep using
@ -981,7 +981,7 @@ matches exist."
(provide 'icomplete) (provide 'icomplete)
;;_* Local emacs vars. ;;;_* Local emacs vars.
;;Local variables: ;;Local variables:
;;allout-layout: (-2 :) ;;allout-layout: (-2 :)
;;End: ;;End:

4
lisp/net/eudc.el
View file

@ -1129,7 +1129,9 @@ queries the server for the existing fields and displays a corresponding form."
(cons "Directory Servers" (cons "Directory Servers"
(easy-menu-create-menu "Directory Servers" (cdr (eudc-menu)))))) (easy-menu-create-menu "Directory Servers" (cdr (eudc-menu))))))
;;; Load time initializations : ;;}}}
;;{{{ Load time initializations
;; Load the options file ;; Load the options file
(if (and (not noninteractive) (if (and (not noninteractive)