mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

allout.el: Add 2011 to the file copyright.

Browse Source 
(allout-encrypt-string): Prevent encryption from adding an extra newline at
the end of the topic body.
(allout-version): Increment to 2.3.
This commit is contained in:
Ken Manheimer 2011-01-10 17:05:42 -05:00
parent 2bc92a930d
commit 0af8c88bf2
2 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2011-01-10 Ken Manheimer <ken.manheimer@gmail.com>
allout.el: Add 2011 to the file copyright.
(allout-encrypt-string): Prevent encryption from adding an extra
newline at the end of the topic body.
(allout-version): Increment to 2.3.
2011-01-10 Michael Albinus <michael.albinus@gmx.de>
* net/dbus.el (dbus-unregister-service): Complete doc. Fix

17
lisp/allout.el
View File

@ -1,12 +1,12 @@
;;; allout.el --- extensive outline mode for use alone and with other modes
;; Copyright (C) 1992, 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006,
;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;; 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
;; Author: Ken Manheimer <ken dot manheimer at gmail dot com>
;; Maintainer: Ken Manheimer <ken dot manheimer at gmail dot com>
;; Created: Dec 1991 -- first release to usenet
;; Version: 2.2.2
;; Version: 2.3
;; Keywords: outlines wp languages
;; Website: http://myriadicity.net/Sundry/EmacsAllout
@ -569,7 +569,7 @@ themselves:
`!' - exclamation point/bang -- emphatic
`[' - open square bracket -- meta-note, about item instead of item's subject
`\"' - double quote -- a quotation or other citation
`=' - equal sign -- an assignement, equating a name with some connotation
`=' - equal sign -- an assignment, some kind of definition
`^' - carat -- relates to something above
Some are more elusive, but their rationale may be recognizable:
@ -891,7 +891,7 @@ For details, see `allout-toggle-current-subtree-encryption's docstring."
;;;_ #1 Internal Outline Formatting and Configuration
;;;_ : Version
;;;_ = allout-version
(defvar allout-version "2.2.2"
(defvar allout-version "2.3"
"Version of currently loaded outline package. (allout.el)")
;;;_ > allout-version
(defun allout-version (&optional here)
@ -6226,10 +6226,11 @@ signal."
(epg-decrypt-string epg-context
(encode-coding-string massaged-text
(or encoding 'utf-8)))
(epg-encrypt-string epg-context
(encode-coding-string massaged-text
(or encoding 'utf-8))
recipients)))
(replace-regexp-in-string "\n$" ""
(epg-encrypt-string epg-context
(encode-coding-string massaged-text
(or encoding 'utf-8))
recipients))))
;; validate result -- non-empty
(if (not result-text)