update packages and add valign
This commit is contained in:
@@ -1,2 +1,2 @@
|
||||
;; Generated package description from adaptive-wrap.el -*- no-byte-compile: t -*-
|
||||
(define-package "adaptive-wrap" "0.8" "Smart line-wrapping with wrap-prefix" 'nil :commit "026c35f59174febab2bcdb3c50fb8344c248671c" :url "https://elpa.gnu.org/packages/adaptive-wrap.html" :authors '(("Stephen Berman" . "stephen.berman@gmx.net") ("Stefan Monnier" . "monnier@iro.umontreal.ca")) :maintainer '(("Stephen Berman" . "stephen.berman@gmx.net") ("Stefan Monnier" . "monnier@iro.umontreal.ca")))
|
||||
(define-package "adaptive-wrap" "0.9" "Smart line-wrapping with wrap-prefix" '((emacs "24.1")) :commit "e929b38c12f17aa6f8d6270326301d61fbb09cab" :url "https://elpa.gnu.org/packages/adaptive-wrap.html" :authors '(("Stephen Berman" . "stephen.berman@gmx.net") ("Stefan Monnier" . "monnier@iro.umontreal.ca")) :maintainer '(("Stephen Berman" . "stephen.berman@gmx.net") ("Stefan Monnier" . "monnier@iro.umontreal.ca")))
|
||||
|
||||
@@ -1,10 +1,11 @@
|
||||
;;; adaptive-wrap.el --- Smart line-wrapping with wrap-prefix
|
||||
;;; adaptive-wrap.el --- Smart line-wrapping with wrap-prefix -*- lexical-binding: t; -*-
|
||||
|
||||
;; Copyright (C) 2011-2021 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2011-2026 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Stephen Berman <stephen.berman@gmx.net>
|
||||
;; Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
;; Version: 0.8
|
||||
;; Package-Requires: ((emacs "24.1"))
|
||||
;; Version: 0.9
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
@@ -17,7 +18,7 @@
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
@@ -26,6 +27,12 @@
|
||||
;; word-wrapped in a way similar to what you'd get with M-q using
|
||||
;; adaptive-fill-mode, but without actually changing the buffer's text.
|
||||
|
||||
;;; News:
|
||||
|
||||
;; Since version 0.8:
|
||||
|
||||
;; - Use `lexical-binding'.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defcustom adaptive-wrap-extra-indent 0
|
||||
@@ -104,7 +111,8 @@ extra indent = 2
|
||||
""))))
|
||||
|
||||
(defun adaptive-wrap-fill-context-prefix (beg end)
|
||||
"Like `fill-context-prefix', but with length adjusted by `adaptive-wrap-extra-indent'."
|
||||
"Like `fill-context-prefix', but with length adjusted.
|
||||
How much to adjust it is decided by `adaptive-wrap-extra-indent'."
|
||||
(let* ((fcp
|
||||
;; `fill-context-prefix' ignores prefixes that look like paragraph
|
||||
;; starts, in order to avoid inadvertently creating a new paragraph
|
||||
|
||||
Reference in New Issue
Block a user